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ABSTRACT 

THE POWER INDUCED EFFECTS MODULE: 

A FORTRAN CODE WHICH ESTIMATES LIFT INCREMENTS DUE TO 
POWER INDUCED EFFECTS FOR V/STOL FLIGHT 

Kipp E. Howard 

The objective of this project was to produce a user friendly FORTRAN code which 
can be used for preliminary design of V/STOL aircraft. It estimates lift increments, due to 
power induced effects, encountered by aircraft in V/STOL flight. These lift increments are 
calculated using empirical relations developed from wind tunnel tests and are due to 
suckdown, fountain, ground vortex, jet wake, and the reaction control system. The code 
can be used as a preliminary design tool along with NASA Ames’ Aircraft Synthesis 
preliminary design code or as a stand-alone program for V/STOL aircraft designers. 

The Power Induce Effects Module was validated using experimental data supplied 
by NASA-Ames Research Center, McDonnell Aircraft Company and data computed from 
lift increment routines developed by Richard E. Kuhn. Results are presented for many flat 
plate models along with the McDonnell Aircraft Company’s MFVT V/STOL preliminary 
design and a 15% scale model of the YAV-8B, “Hamer”, V/STOL aircraft. 

It was found the Power Induced Effects Module predicts trends and magnitudes of 
lift increments verses aircraft height above the ground, well. The code was also found to 
predict only the magnitudes of lift increments verses aircraft forward velocity, well. More 
experimental results are needed to determine how well the code predicts lift increments as 
they vary with jet deflection angle and angle of attack. 
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CHAPTER 1 


Introduction 

Preliminary design of modem aircraft is labor intensive, time consuming and 
requires detailed knowledge of several engineering disciplines. Interactive computer 
programs have been developed which reduce the time necessary to perform the calculations 
involved and permit the engineer to quickly size an aircraft and determine if the design can 
meet specifications. The Aircraft Synthesis (ACSYNT) code developed by NASA is one of 
the existing preliminary design and analysis codes. This code will assist an aircraft designer 
in sizing and design of conventional takeoff and landing aircraft. An effort in now being 
make to update the code to include sizing and design of vertical and short takeoff and 
landing (V/STOL) aircraft . 

V/STOL aircraft experience changes in the overall lift due to power induced effects. 
Even though the magnitude of these changes in lift, or lift increments, might be small 
compared to the installed thrust of an aircraft, they must be estimated if accurate predictions 
of aircraft performance are to be made. For example, an error of three percent in the total 
lifting capability in hover is about a 10% error in the prediction of the aircraft range 
(Reference 3). 

In the past, lift increments for simple configurations were predicted by using wind 
tunnel data to generate empirical models. As more configurations were tested, the empirical 
models became increasingly more complicated to the point where hand calculations have 
become impractical and tedious. Computer programs have been developed to calculate 
each lift increment individually. These programs have proved adequate although the user 
needs to be knowledgeable about the lift increments, to make many pre-calculations for the 
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inputs, and to combine the results in order to find the total lift increment. A need exists for 
a program which does not require detailed knowledge of lift increments, requires only a 
minimum amount of input from the user and can output individual lift increments and/or 
total lift increments in any form desired by the user. 

The objective of this project was to produce a user friendly FORTRAN code that 
estimates the lift increments, due to power induced effects, encountered by aircraft in 
V/STOL flight using the method developed by Kuhn and Stewart (References 6 and 1 3). 
The code was developed to enable the programmer to easily include moment increment 
calculations and customized output. The method uses empirically derived relations based 
on aircraft configuration and flight regime to calculate the lift increments. The code, which 
is titled the Power Induced Effect Module (PIE), calculates lift increments due to 
aerodynamic forces that result from the interaction of the lifting jets with the surrounding 
environment. These lift increments are due to the suckdown, fountain, ground vortex, jet 
wake, and the reaction control system. PEE is a stand-alone application, written in 
FORTRAN, which creates lookup tables that are compatible with ACSYNT. PIE can be 
easily incorporated into ACSYNT at a later date and made transparent to the user. 



CHAPTER 2 

Lift Increment Descriptions 


Descriptions of the lift increments are presented to assist the reader to better 
understand this report. Lift increments are considered to be changes in the lift of an 
aircraft. This project accounts for lift increments which result from the operation of the 
power plant of a V/STOL aircraft and the interaction between its lifting jets, surrounding air 
mass, airframe, and landing surface. These increments either add or subtract from the total 
lift of the aircraft during hover or transition. They are a result of the suckdown, fountain, 
ground vortex, jet wake and reaction control system suckdown effects. The power induced 
lift increments which are not accounted for in this project are those dealing with turning and 
pressure losses in the lifting nozzles, recirculation, and hot-gas ingestion. 

Suckdown 

The jet exhaust which supports a V/STOL aircraft, entrains its surrounding airmass 
around the aircraft (Figure #la). This entrainment is due to viscosity and it is greatest near 
the jet. The downward flow produced from this entrainment causes a downward force on 
the airframe (Reference 12) because the wings and body of the aircraft act as flat plates 
perpendicular to the flow. 

Figure #2 is a photograph of a jet flow exiting normal to a flat plate. It can be seen 
that the entrainment of the flow causes the fluid particles to separate as they flow from 
above the plate around to the jet (Reference 11). This separated region causes negative 
pressures on the underside of the plate, sucking it down. 
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Figure #2. Photograph of a jet in a water tunnel illustrating the 

entrainment of air from the calm surroundings around the 
edge of the plate. (Reference 11) 


Fountain Lift 

When a single jet is near and perpendicular to the ground, a wall jet is radiated out 
in all directions from the point of impingement, similar to Figure #lb. When two or more 
jets are present and widely separated, their wall jets meet on the axis of symmetry between 
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the jets and since there is no other place to go, they merge and rise upwards, creating a 
fountain underneath the aircraft. 

This effect can be seen in Figure #3 which is a side-view photograph of two 
nozzles exhausting perpendicular to the ground. The streamlines of the flow are shown by 
paint streaks on the ground plane and the vertical plane. The plane of symmetry and the 
actual fountain can be easily seen between the two nozzles. 



Figure #3. Photograph of the flow field between two jets with the same 
nozzle pressure (Reference 11). 


Fountain Arms 

The fountain arms are created when exhaust from any two neighboring jets meet on 
the ground at the plane of symmetry between the jets. This is shown between any two 
adjacent jets in Figure #4 When the two flows meet, they merge and rise upward in a 
relatively thin fan-shaped sheet as seen in Figure #5. This upward flowing sheet pushes 
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upward on the lower surface of the aircraft which gives the aircraft a positive lift increment. 
The upward flowing sheets exiting the vicinity of the jet pattern are referred to as the arms 
of the fountain or “fountain arms.” 



Figure #4. Planform view of jet pattern with four jets and the flow from 
each of the jets (Reference 6). 



Figure #5. “Fountain Core and Arms” generated by a configuration with 
three or more jets - Side view of jet pattern (Reference 6). 
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Fountain Core 

The fountain core is generated when the fountain arms created from three or more 
jets meet at the center of the jet pattern. This fountain core has higher upward velocities 
than those of the fountain arms (Reference 1 1) because multiple fountain arms converged at 
the center of the jet pattern as shown in Figure #4 and #5. These higher upward velocities 
increase the pressure underneath the aircraft imparting an upward force on its lower 
surface. 

Lift Improvement Devices 

The lift due to the fountain effect can be increased by the use of lift improvement 
devices or LIDs. These LIDs are strakes on the lower surface of the aircraft. The LEDs 
redirect the fluid downward which produces larger upward forces on the aircraft. The flow 
field underneath an aircraft with LnDs is shown in Figure #6. 



Figure #6. Flow field under an aircraft in hover with lift improvement 
devices 


Ground Vortex 

A ground vortex forms when the wall jet, from a vertical jet impinging on the 
ground, physically interacts with the freestream. The freestream causes the wall jet along 
the ground to roll up into a vortex which is swept in the direction of the freestream 
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(Reference 2). Figure #7 is a schematic of an aircraft operating close to the ground and 
shows the ground vortex due to the interaction between the wall jet and the crossflow. 



Figure #7 . Ground vortex created from the interaction between the 

freestream and the jets of a V/STOL aircraft near the ground 


The ground vortex contributes to the lift increment by causing increased flow 
underneath and near the aircraft. This flow reduces the pressure on the underside of the 
wing and body which in turn reduces the lift on the aircraft. The magnitude of the lift 
increment caused by the ground vortex is dependant on ground proximity and aircraft 
speed. If the aircraft is high enough or fast enough, the ground vortex is swept completely 
under the airframe causing no decrease in lift. As the aircraft approaches the ground and/or 
slows down, the loss in lift increases as more of the vortex interacts directly with the 
airframe. 


.let Wake 

A jet wake occurs when a jet exits perpendicular to the freestream. The jet is 
deflected in the direction of the freestream and is quickly transformed into a rolled up 
vortex pair. Initially, shedding of the vortex pairs are analogous to the vortices which are 
shed from a solid cylinder placed in a crossflow. Due to the curvature and mixing of the jet 
in the freestream, the jet is transformed into a vortex pair and their axes become parallel to 
the freestream. These vortex pairs can be seen in Figure #8, which is a photograph of a 
cross section of an actual jet exiting perpendicular to the freestream in a water tunnel. The 
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white portion is the jet flow and the white dots are air bubbles which are induced into the 
vortices surrounding the jet flow (Reference 11). The vortices created from the jet wake 
are the primary cause of the interference effects in transition flight. The vortices change the 
flow field near the airframe which induces additional suction pressures on the surfaces of 
the aircraft (Reference 10). 



Figure #8. Photograph of the cross section of the wake six nozzle 

diameters downstream of a jet exiting perpendicular to the 
free-stream in a water tunnel. (Reference 11) 

The negative lift increment created by the jet wake is due to large negative pressures 
developed behind the jet, as shown in Figure #9. This figure depicts pressure contours 
around a jet exiting perpendicular to the free-stream from a flat plate. It can be seen the jet 
produces a region of positive pressures upstream of the jet and a much larger region of 
stronger negative pressures laterally and downstream of the jet (Reference 14). 
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Figure #9. Pressure -coefficient contours on a flat plate with a 
perpendicular exiting jet. (Reference 14) 


Reaction Control System 

Vertical/short take-off and landing aircraft require pitch, roll, and yaw control when 
in hover or transition. Typically a portion of the exhaust is bled off from the engine and 
ducted to the extremities of the aircraft to the reaction control system (RCS). Nozzles on 
the wing tips are used for roll control and nozzles on the nose and tail can be used for pitch 
and yaw control. Studies have been performed on the nozzles used for roll control to 
determine their effectiveness in hover or forward flight. (This report/program will only 
account for the lift increments resulting from the roll control RCS nozzles due to the 
unavailability of data for pitch and yaw control nozzles.) It was found the roll control 
nozzles typically encounter the same type of suckdown and jet wake effects which the main 
lift engines encounter. These losses are due to the entrainment action of the jet, and the 
interaction of the free stream and the jet flow (jet wake losses). (See Figure #10.) Both of 
these effects induced suction pressures on the lower surface of the wing beside and behind 
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the jet causing a down load on the wing which reduced the effectiveness of the jet. (The 
magnitude of this lift increment is small compared to the total lift increment, but it is 
important when determining the maximum rolling moment which the RCS can produce. 
This will become much more important when moment increment routines are added to the 
code.) 




Figure #1 1 


V/STOL induced lift increments (Reference 8) 
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T rends and Comparisons of the Lift Increments 
Figure #1 1 is a graph that displays how lift increments vary with height above the 
ground. The normalized parameters are used so comparisons between different types and 
scales of configurations can be made. As can be noted from Figure #1 1, the ground has a 
profound effect on the lift increments. They vary near the ground and then level off to a 
constant out of ground effect (OGE) value as the altitude is increased. 



CHAPTER 3 


Computational Development 

All relations developed for this project are empirical equations which were 
developed from wind tunnel data by Kuhn (Reference 6) and Stewart and Kuhn 
(Reference 13). These relations include many configuration and flight regime specific 
equations. The general equations will be presented with a mention of the specific changes 
to these equations for given configurations and flight regimes. 

Variables 

The variables which are present in the PIE routines can be divided into three 
categories: independent, configuration and control variables. All variables have the 
capability of being changed by the user. See Appendix B, the User s/Programmer s 
Manual, for more details. 

Independent Variables 

The independent variables are the flight conditions of the aircraft. These variables 
are aircraft height above the landing surface, forward velocity, nozzle deflection angle, and 
angle of attack. They were chosen as independent variables because they define the flight 
conditions of any particular aircraft design. Also ACSYNT requires lift increments based 
on these independent variables. 

Configuration Variables 

Configuration variables define the configuration of a particular aircraft. These 
variables can be further divided into three categories. The first category are those variables 
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which define the aircraft wing, body and wing/body. These include widths, lengths, 
heights, areas, and positions of aircraft components. The second category defines the 
number, positions, diameters, areas, configurations, and performance of the nozzles. The 
third category of variables define the positions, configuration, and affected areas of 
fountain arms and core. 

Control and Result Variables 

The control variables track and control execution, and record errors. These 
variables include the indices which allow quick and convenient access to results. The result 
variables store results for each lift increment for each change in the independent variables. 
These result variables are stored and retrieved using indexed notation (u(ij)) where ‘i’ and 
‘j’ can be any positive integer. Due to memory constraints on the computer systems, some 
of the results are stored in disk files instead of computer memory but are still stored and 
accessed using the same indexed techniques. Many of the results are stored as components 
of the total lift increments. Frequently, these components are the lift increments calculated 
separately for the body, wing, front nozzles, and rear nozzles. Later these components 
area combined using the principal of superposition. 

Hover 

The only independent variable used in the hover calculations is height. The other 
independent variables are set to zero velocity, 90° nozzle deflection angle, and 0° angle of 
attack. 

The method used in this study was developed by Kuhn (Reference 6) and its major 
assumption is the total induced lift increment developed on a V/STOL aircraft can be 
expressed as: 

AL , ALs , ALp , ALl (1) 

rj'i rji rji rji 



15 


AL 

is the out-of-ground effect (OGE) suckdown lift increment. The equation for 
the OGE suckdown is: 

= -.00022-1 [[PilV'^ZmI (2 

T V A [\?J de J V 

where S is the total planform area, A is the total jet exit area, Pn/P«> is the nozzle pressure 
ratio, Ijtd is the total jet perimeter, and de is the diameter of an equivalent single jet having 
area A. Experiments have shown that the OGE lift increment is reduced if the nozzles are 
extended below the surface of a body. The OGE lift increment for a high wing 
configuration is lower than the low wing configuration and the decrease is related to the 
square root of the wing height over nozzle diameter as shown in equation (3). 



where Ah indicates the wing height above the nozzles of the configuration, and the 
subscripts hw indicates a high wing, b indicates the body, and wb indicates the wingbody. 
AL s 

is the additional lift increment due to suckdown experienced in-ground effect 

(GE). It was first determined experimentally for single jet configurations and then a 
correction factor was developed for multiple jet configurations. The equation for in-ground 
effect suckdown is: 



= K S (-.015) 


h_ 

_de 

1.0 

Lde 



.24 [Ed., l) 
\P /J 


(4) 


Where in addition to the variables mentioned above, D is the angular mean diameter of the 
planform, and Ks is the multiple jet correction factor which is a function of configuration 
geometry. This GE suckdown also changes with wing height similar to the OGE 
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suckdown. This is because the wing does not experience the same magnitude of 
entrainment as the lower surface of the body. 


Fountain Lift 

Two methods were developed by Kuhn to calculate the fountain lift, one for widely 
spaced jets, the Basic Method, and one for closely space jets, the h’ Method. 


Basic Method. The Basic Method was developed for widely spaced jets with 
AL. 

equal thrusts. -=r- is the overall fountain lift increment which is a combination of the lift 
increment developed by the fountain arms and fountain core. 


ALf _ ALa | ALp 

T T T (5) 

Equations (6) and (7) are used to calculate the fountain arm contribution. Equation 
(6) is the lift increment for an individual fountain arm ‘x\ Equation (7) combines the 
fountain arms in the configuration. 

AL a , & — 

T nW,S,"I Wx+hl V y ,2 + (c+h) 2 <6) 



y x is the span wise extent of the fountain on the planform, Yx is the maximum span wise 
extent of the fountain on the planform, e is half the distance between adjacent jets, h is the 
height of the lowest surface above the ground, S ’ is the actual surface area between the jets, 
S” is the potential surface area between the jets, and N is the number of fountain arms. 
These variables can be seen in Figure #12. 
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Figure #12. Fountain variables from a configuration with three jets. 

The calculations for the fountain core are similar to those of the fountain arms 
except the contribution of each fountain arm on the fountain core is; 

^^^cl-M^cosBx (8) 

T le x +h) 

AL c ,i AL c ,2 + ( ALc,n 
T T T (9) 

Where the constant Kc and Xq depend on configuration geometry and altitude, e is half the 

distance between adjacent jets, h is the height of the lowest surface above the ground, and 

0 is half the angle between adjacent jets and the center of the jet pattern. 

h’ Method. The h’ Method was developed because configurations with closely 
spaced jets exhibit an abrupt increase in fountain lift at low altitudes which is not predicted 
with the Basic Method. Closely spaced jets have higher pressures between the jets which 
the Basic Method fails to predict. These higher pressures increase rapidly as the jet spacing 
is reduced. The ability to contain this pressure breaks down as the height is increased 
because the jets tend to merge into a single jet before they reach the ground. 

Two different equations are used for the fountain increment. The decision for 
which equation to use is based on an altitude, h\ 
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AL F =K’ (10) 

T Idel 

^ =0.033 (ID 

where K’ and X' are parameters calculated based on jet spacing, diameter, number, surface 
area, etc..., w is width of the configuration, and 1 is the length of the configuration. The 
two curves do not intersect but are joined by a straight line which is tangent to the curve of 
equation (10) and is projected to — j— = 0 at a height defined as h\ This is shown in 

Figure #13. 



Lift Improvement Devices 

AL i . . .... 

— - is the lift improvement devices (LIDs) lift increment. This lift increment is an 

addition to the total fountain by a percentage, Kl, of the total fountain lift. Kl can be 
determined using the area inclosed by the LIDs, ratio of perimeter by LIDs to the total 



perimeter area enclosed by LIDs, area enclosed by jet centers, length-to-width ratio of jet 
pattern, and altitude of aircraft. These variables can be seen in Figure #14. 



Figure #14. Lift Improvement Device definitions from a triangular 
configuration with three jets. 

Forward Flight / .let Defle ction Angle / Angle of Attack 

The calculations based on forward flight, jet deflection angle, and angle of attack 
use hover calculations as a basis for each lift increment calculation. The method’s major 
assumption is the total lift can be expressed as: 

AL _ ALs + ALf + ALjw + ALy (i 2 ) 

rp fp rp» rp» rji 

where the subscript S refers to the suckdown lift increment (no fountain), F refers to the 
fountain lift increment, JW refers to the jet wake lift increment, and V refers to the lift 
increment due to the ground vortex. 

Suckdown/Fountain 

The suckdown and fountain terms are calculated using similar methods. These 
methods calculate a factor based on the forward extent of the wall jet and the jet spacing of 
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the front nozzles. This factor, Kh, varies between one (the wall jet extending ahead of the 
configuration) and zero (the wall jet swept behind the configuration.) This factor is 
multiplied by the square of the sine of the jet deflection angle (5). (Angle of attack is not 
used in these calculations.) This calculation produces a factor which modifies the 
suckdown and fountain terms for the effects of forward speed and jet deflection angle. The 
suckdown lift increment for forward flight and jet deflection angle is calculated as follows: 


ALsJMis) K h sin 2 8 


T /, 


(13) 


hover 


The fountain lift increment is calculated using the fountain and LID lift increments 
from the hover calculations as shown in equation (14). 


ALp _ 
T 


ALf + ALl 

L T T J 


VF K h sin 2 5 

hover V il 


(14) 


This lift increment calculation is very similar to equation (13) except for the V ^ term. 


This term is included from the recommendation of Richard Kuhn. It is ratio of h\ which 
was described earlier and hf, which is the maximum height to which the fountain effects are 
felt on the airframe. 


Ground Vortex 

The ground vortex term is calculated by assuming the configuration is composed of 
a body and a wing. The lift increment is based on the thrust, diameter and area of the front 
jets. There are two critical heights associated with the ground vortex lift increments; hj is 
the height at which the rate of change of lift with height changes and h 2 is the maximum 
height at which the ground vortex effects are felt. The equations are different for the wing 
and body and each of those are different for heights based on hj and h 2 - An example of 
these relations is the equation for a body at a height between hi and h 2 , equation (14). 
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The other equations are similar to equation (14) in complexity and format. The subscript f 
refers to the front jets, and B refers to the body configuration. T is the thrust, w is the 
width, 1 is the length, S and A are area, V e is the ratio of the aircraft dynamic pressure to 
the jet dynamic pressure, ACp is a factor based on Ve and height, and 8 is the jet deflection 

angle. 


Jet Wake 

The lift increment due to the jet wake is the sum of the increments due to each jet on 
the wing and body. This is shown in equation (15) where B refers to the body planform, 
W refers to the wing planform, f refers to the front jets and r refers to the rear jets. 



_ (alA , (aLt\ + (ALf] + [^Li 


(15) 


The lift increment for the wake is figured by first calculating the lift increment out-of- 
ground effect and then including this term in the overall lift increment in-ground effect. 

The OGE jet wake lift increment is calculated using equation (16), which is the equation for 
the lift increment on a square planform with the jet at the center, and multiplying it by 
adjustment factors for the planform aspect ratio, longitudinal, vertical, and lateral position 
of the jet, distance of the jet center from the side of the body, jet deflection angle, non- 
circular nozzles, jet pressure ratio, and jet flap. 

' 67 + 35Ve 5 ^ - l) < 16 ) 

The OGE lift increment is included in equation (17) which is the equation to 
calculate the jet wake lift increment for an individual jet on a body planform. 

1 - .7 


is] /w\ m 134 /\^v- 35 (h. 

'A'b' 1 \ 1 lj 'd’ 
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Similar equations are used in calculations for the wing planform. The subscript j refers to 
the jets 

If the jets are placed near the trailing edge of the wing, there is a positive lift 
increment lift increment instead of a negative. This is due to the jet flap effect. In this case 
a positive lift increment is calculated and replaces the OGE term an equation similar to 
equation (17). 

Reaction Co ntrol System 

The effectiveness of the roll control jets near the wing tip during transition depends 
on the proximity of the control jets to the wing tip and the wing trailing edge, and jet 
pressure ratio (P/Poo). The empirical equations developed for this lift increment are based 
on an integration of the pressure distributions on the surfaces surrounding the nozzles. 

The lift increments are assumed to be made up of two terms, one which is not 
affected by pressure ratios (O) and another from the effect of pressure ratios above a critical 
pressure ratio of 1.893 (P). 

alrcs Jal] Jal) 

T 1 T J 0 \ T Ip ( 18 ) 

where: 



The variable S is the area of the wing, Aj is the jet exit area, Pj is the jet exit pressure, and 
Poo is the atmospheric pressure. These equations reproduce wind tunnel data with 
reasonable accuracy up to effective velocity ratios of V e = .1, planform-to-jet area ratios up 
to 7000, and jet pressure ratios up to 45. 
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The magnitude of the lift increment decreases as the jet is moved closer to the wing 
tip or trailing edge. This is because the total area near the jet is decreased which reduces the 
effect of the negative pressures caused by the jet. Equation (21), (22), and (23) show the 
jet location adjustment factors and how they affect the total RCS lift increment. 


.58 


K b = .25 + .2 l-f 

\de 


K c = .25 + .06 -X- 

de 


ALrcs J 
T 


IWL. 


KbKc 


( 21 ) 

( 22 ) 

(23) 


Kb is the adjustment factor for the proximity of the jet to the wing tip, y is the distance from 
the trailing edge to the jet, Kc is the adjustment factor for the proximity of the jet to the 
wing trailing edge, and x is the distance from the wing trailing edge to the jet. 

This term is usually not included in the total lift increment because its magnitude is 
much smaller compared to the total lift increment and therefore need not be calculated for 
the general configuration. These routines were included in PIE to allow rolling moment 
increment routines, which use this lift increment, to be included at a later date. 



CHAPTER 4 

Computer Code Description 

Philosophy 

The Power Induced Effects Module is written in a modular structure which makes it 
easy to understand and modify. The code is divided into five fundamental sections; 
control, input, pre -calculations, lift increments, and output. Each of these modules are 
divided into individual parts to make logic and coding easier to understand. (See Appendix 
A for a listing of all routines used in PIE.) 

Control 

The Power Induced Effects (PIE) module is controlled by the control program, 
COPPIE, which coordinates the execution of PIE. COPPIE’s first task is to make calls to 
input and pre-calculation subroutines. These calls are made first so all variables are either 
defined by the user, assigned a default value, or calculated. Within these variables the 
number, limits, and steps are defined for each independent variable, height, velocity, 
nozzle deflection angle, and angle of attack. COPPIE steps from one to the maximum 
number of variations for each independent variable (i.e. If 15 heights are to be considered 
then COPPIE steps from one to 15 for height). The actual value for the independent 
variable is calculated and then the control routine for a lift increment(s) is called and/or the 
next independent variable is incremented. After all independent variables have been 
incremented up to their maximum values then the output subroutine is called. Figure #15 is 
a flow chart which shows the basic structure of COPPIE. 
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Input 

Input routines for PIE perform two functions: input of variables, and 
check/modification of variables for consistency. The first routine of the input routines 
reads two input files. The first file contains all user defined variables. The second file 
contains X and Y coordinates for half the configuration planform. This routine first sets 
default values for all variables and then reads user defined variables from the first file. The 
advantage of this style of input over the input in the original programs (variables are entered 
in the code, hard-coded) is it allows the user to input as many or as few variables (above 
the minimum configuration variables) as the user desires. It also allows the user to save the 
configuration in a small, easy to manipulate files and rerun particular configurations as 
desired. The planform file allows a majority of calculation-intensive variables to be 
calculated by PIE, which alleviates the user from making tedious calculations. 

The second routine assures planforms defined in the second file are consistent with 
the coordinate system defined in PIE. If the nose of the configuration does not lie on the 
origin, the routines modify all coordinates of the planforms and necessary configuration 
variables so the nose does lie on the origin. This makes sure PIE is able to interpret user 
inputs correctly. 

Preliminary Calculations 

The original programs have a few serious problems which make them tedious and 
difficult to use. First, these programs need extensive input in order to calculate the lift 
increment. These inputs include calculations for actual and potential surface areas between 
jets, and angular mean diameter of the planform which are tedious calculations because they 
require an integration over portions of the planform. There are also a number of less 
tedious calculations, but the number of them make the calculations time consuming for the 
user. Second, the user needs to know exactly how calculations are made so they can adjust 
variables so the results are computed correctly. For example, when the configuration has a 
high wing, areas for the fountain arms are smaller compared to configurations with low 
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wings, critical angular mean diameters are different, and some lengths based on the nozzles 
change. These procedures require detailed knowledge of lift increments and the overall 
method. 

A desirable feature of the Power Induced Effects Module (PIE) is it contains a 
complete set of variables which defines the configuration. This allows lift increment 
control routines to pick and choose variables needed by lift increment routines. Many 
pre-calculations need to be made to obtain this complete set of variables. These 
pre-calculations take a number of hours by hand for each configuration and they change 
with each new configuration. This means if a new configuration needs to be completed, 
the calculations need to be refigured, which a computer can do quickly 

Lift Increments Routines 

The lift increment routines were divided into four sections. The sections are based 
on which independent variables are used to calculate the lift increment. The first section is 
lift increments calculated for hover. These lift increments vary with height. The second 
section contains lift increments which vary with velocity. The third section contains lift 
increments which vary with height, velocity, and jet deflection angle. The fourth section 
contains lift increments which change with height, velocity, jet deflection angle, and angle 
of attack. 

Height 

The hover routines calculate initial lift increments for the suckdown and fountain 
which vary with height. The RCS, ground vortex, and jet wake lift increments occur when 
a freestream is present so they are not included in these calculations. The out-of-ground 
effect (OGE) suckdown is calculated first and then corrections are made for in-ground 
effect (GE) based on the altitude of the configuration. The fountain terms are calculated 
based on their proximity to the ground using the “Basic” and “IT “ methods outlined by 
Kuhn (Reference 6). 



28 


The specific function of the hover control routine is to recognize when a high wing 
is present and make appropriate adjustment to variables which it sends to the lift increment 

routine. 

Forward Velocity 

The reaction control system (RCS) lift increment varies with velocity. Ground 
effects can be neglected since the size of the RCS jets are much smaller than their height 
above the ground. Corrections for jet placement are calculated first. The lift increment 
based on pressure ratio is calculated next and adjustment factors are applied to the results. 

The specific function of the RCS control routine is to either execute the lift 
increment routine or set its result to zero. This is controlled with a flag variable which can 
be changed by the user. 

Height. Forward Velocity, and Jet Defl ection Angle 

Suckdown, fountain, and jet wake lift increments vary with height, forward 
velocity and jet deflection angle. Suckdown and fountain terms are calculated inside the 
same increment routine because they both change similarly with the independent variables. 

A height factor is calculated based on the forward extent of the wall jet. Then the 
calculations use hover values multiplied by height, forward flight and nozzle deflection 
angle factors. The control routine for suckdown and fountain routine track the positions of 
the nozzles and whether there is a high wing and passes the necessary information to the 
suckdown and fountain lift increment routine. 

The jet wake term is calculated using methods described by Stewart 
(Reference 13). Since the methods makes separate calculations for different planforms and 
for front and rear jets, the control program is much more detailed than the others. The 
control program first determines which kind of planforms are to be used: wing and body or 
wing/body (one planform which is a combination of the wing and body). It checks if the 
nozzles are near the trailing edge of the wing, for the jet flap effect, and then calculates the 
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OGE and overall lift increment for the jet wake from front and rear nozzles. This process is 
repeated for the next planform. The OGE and overall lift increments are calculated in 
separate routines due to the complexity of each calculation. The calculations for the wing 
and body are stored separately to allow contributions of each planform to be observed. 

Height. Forward Velocity. Jet Deflect ion Angle, and Angle of Attack 

The ground vortex term is calculated based on height, forward velocity, nozzle 
deflection angle, and angle of attack. This is the only term which varies with angle of 
attack. 

The control routine for the ground vortex term is similar to the jet wake control 
routine with respect to the planforms. The rear nozzles do not contribute to the ground 
vortex so only the front nozzles are used in the calculations. Lift increments for the wing 
and body are calculated and stored separately to allow contributions of each planform to be 
observed 

Output 

Storage of the results of PIE are in files and arrays which can be recalled with the 
use of an index notation. This is done so any type of lookup table can be created by the 
user/programmer. This method of storage allows the programmer to configure an output 
table in any format using simple index notation when requesting a value (i.e. if the user 
wants a lift increment for the eighth height, sixth velocity, third deflection angle and fifth 
angle of attack, it can be recalled by setting the appropriate index variables; i, j, k, and 1 to 
8, 6, 3, and 5 respectively). This feature allows easy access to the lift increments which 
facilitates many different types of look-up table output. 

Currently, PIE creates one three-dimensional look-up table for ACSYNT. This 
table contains multiple two-dimensional tables based on deflection angle with each 
individual table based on height and velocity. This table is generated by a single, short 
subroutine which demonstrates how many other types of tables can be generated. 
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Other output options are created for viewing purposes. These tables are more 
examples of the many tables which can be generated. Each lift increment as well as the 
total lift increments can be viewed based on two of the four independent variables. 
Currently, outputs are text files which can be read by a plotting routine, developed at 
NASA Ames for the Silicon Graphics IRIS workstations, and a Macintosh graphing 
application called KaleidaGraph™. 

Limitations 

PIE cannot calculate lift increments for configurations with five or more jets or 
configurations with three or more jets in a straight line either laterally or longitudinally. A 
temporary solution to this problem is to combined closely spaced jets into single jets, which 
can be rectangular or oval, until the total number of jets is reduced to four or less. 

The methods used in this code are intended for use in preliminary design analysis 
and to give an indication of the effects of changes to primary configuration variables. 

Power induced effects are a complex function of many configuration variables and 
development of a V/STOL aircraft will require careful experimental investigations to 
accurately determine the induced forces (Reference 13). 

Refer to Appendix B, the User’s and Programmer’s manuals, for additional 
information on configuration variables, how to run PIE, and more detail on the structure 
and organization of the code. 



CHAPTER 5 

Results and Discussion/Validation 


When a new computer code is written there are invariably going to be flaws in the 
code due to calculation or logic errors. This is the reason all codes must to be verified and 
corrected before they are used reliably for the purposes they were created. 

The purpose of this section is to compare the Power Induced Effects Module (PIE) 
with experimental results and results from Kuhn’s programs. PIE is verified using height 
and forward velocity data from Kuhn’s programs and experimental results. The other two 
independent variables, jet deflection angle and angle of attack, are not used to verify PEE 
due to lack of both experimental and computed data. It is difficult to isolate individual 
experimental lift increment from the total experimental lift increment which means only the 
total lift increments from PIE can be compared to experimental results. This is not a 
problem when verifying PIE results with Kuhn’s programs. Since PIE and Kuhn’s 
routines are based on the same methods, they can be compared lift increment for lift 
increment. 

Many other conceptual configurations were tested that are not included in this 
report. These configuration were mainly used for error location purposes. They exercised 
the individual sections of the code to find blatant errors which caused PIE to abort or the lift 
increments to become unrealistic values. Only general trends and relative magnitudes in the 
lift increments were examined for these tests. 
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Configurations 

The configurations used for verification start as simple flat plate models and 
progress in complexity to scale models of actual aircraft. These configurations are shown 
in Figure #16. The first four configurations, disk, body, wing-body and delta, are flat 
plate models which were experimentally tested in the Hover Test Rig at Rye Canyon by the 
STOVL/Powered Lift Division of NASA Ames (Reference 15). The next configuration, 
McDonnell Aircraft Company's (MCAIR) mixed-flow vectored thrust (MFVT), is a 
V/STOL design which is still in the preliminary design stages. The last configuration is a 
15% scale model of an actual V/STOL aircraft, the YAV-8B (Hamer). 
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Flat Plate Models 

Flat plate models have been experimentally hover tested for suckdown, fountain, 
and total lift increments encountered in and out of ground effect. The flat plate models 
tested were: disk, body, wing-body, and delta planforms. 

The 20-inch circular disk was tested with one jet in the center. This configuration 
allowed the suckdown equations to be verified without the effect of any of the other lift 
increments. The body, wing-body, and delta planforms were tested with two jets placed 
longitudinally along the planforms. A fountain is created between the two jets on each of 
the last three planforms. This allows the fountain equations to be verified along with the 
suckdown equations. 

Mixed-Flow Vectored-T Hmst Configuration 

The mixed-flow vectored-thrust (MFVT) configuration was proposed by the 
McDonnell Douglas, MCAIR division. Many different nozzle configurations were 
examined with the previous lift increment programs and considerable data is available. The 
MFVT was a conceptual design of a V/STOL aircraft that was examined with Kuhn’s 
programs. Even though no experimental tests were conducted with the configuration, 
Kuhn’s program results are valid because the PIE routines results are based on the same 
methods Kuhn’s programs use. 

The particular configurations examined in this report are a lateral two-jet case and a 
triangular three-jet case (one nozzle in front and two nozzles in the rear). The results from 
Kuhn’s programs are very helpful due to the lack of experimental data for forward 
velocities. 

YAV-8R 

The YAV-8B, or harrier, configuration is the only configuration which has actual 
wind tunnel test data from a 15% scale model tested at the McDonnell Aircraft Company 
(Reference 5). In addition to hover data, a few forward velocity data points are available. 
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The YAV-8B also has some important configuration changes which were not fully tested in 
the previous cases. These are lift improvement devices (LIDS) on the underside of the 
aircraft which trap the fountain, and the jet flap which increases the overall positive 
circulation about the wing due to the position of the nozzles near the trailing edge of the 
wing. Both of these configuration changes add to the total lift increment. The experimental 
data (Reference 9) obtained is for the total lift increments, so only the total values are 
compared. 


H0Y£I 

The hover calculations were conducted with no forward velocity, 90° jet deflection 
angle, and zero angle of attack. Most of the results were calculated from heights of two 
nozzle diameters to twenty nozzle diameters. The two nozzle diameter height was chosen 
because the method loses accuracy at very low heights due to a strong uncertain flow field 
created between the jets and the surface. The two nozzle diameter height is also chosen to 
be lower than the gear height for most aircraft configurations. The gear height is the height 
of the aircraft while it is on the ground with its gear extended. The twenty nozzle diameter 
maximum height was chosen because all lift increments either converge to zero or to a 
constant value. In Figures #17 to #21, the horizontal axis is labeled ‘h/de\ where ‘h’ is the 
actual height of the aircraft and ‘de’ is the effective nozzle diameter or the diameter of a 
single nozzle which would have the same exit area as the sum of the areas of all nozzles on 
a configuration. This label refers to the number of effective nozzle diameters the aircraft is 
above the ground. 

A general reason for the differences between PIE and experimental results for hover 
can be attributed to the assumption that all the lift increments are linear and can be summed 


together with no adjustment factors. 
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Disk 

The 20-inch circular disk with a single jet is the simplest configuration tested. The 
curves in Figure #17 show the computed lift increment compared to the experimental lift 
increment. At altitudes larger then eight nozzle diameters the curves agree quite well, but 
for heights less then eight nozzle diameters the curves diverge slightly. This is most likely 
due to the large rate-of-change of the suckdown lift increment at low heights. Because of 
this large rate-of-change, any differences between the curves will cause sizable deviations 
between lift increment values at a given heights. 



Figure #17. Comparison of calculated and measured total lift increments 
in hover for a 20-inch circular disk (Reference 15) 


BodvAVing-Bodv 

The body and wing-body configuration have two jets as opposed to the single jet 
present in the disk planform. Also the planform areas of the body and wing-body are much 
smaller than the planform area of the disk. These two facts cause the fundamental 
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differences between the magnitudes of the lift increments for the body, wing-body, and 
disk. 

In Figure #1 8, PIE underpredicts the body total lift increment until a height of seven 
nozzle diameters is reached and overpredicts the total lift increment after seven nozzle 
diameters. The same underprediction of the lift increments at lower heights are found on 
the body as are found on the disk. This implies at lower heights the large slope of the 
curve magnifies any deviations between lift increment values. At greater heights, 
differences between experimental and predicted lift increments are not great and can be 
explained by inaccuracies in the methods for predicting the multiple jet suckdown at high 
altitudes. This is determined by examining the figures for the body, wing-body and delta 
planforms, all of which have multiple jets, where the lift increments at high altitudes are 
always overpredicted from the experimental results. Overall, the exact reasons for the 
differences are not entirely known. As mentioned by Kuhn (Reference 6), the multiple jet 
suckdown is the most important and most difficult element of the method to determine. 



Figure #18. Comparison of calculated and measured lift increments in 
hover for the Body planform (Reference 15) 
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The calculated curve for the wing-body planform in Figure #19 matches closely 
with the experimental curve for altitudes less then 4.5 nozzle diameters. After this height, 
PIE overpredicts the lift increment. The good agreement for the lower altitudes is, most 
likely, a coincidence. Another problem with the method which could have caused the 
overprediction of the suckdown lift increment at higher altitudes could be the method was 
developed for low pressure ratios (less than 2.0) but was modified to extrapolate for higher 
pressure ratios. A higher jet pressure ratio (6.0) was used in the experimental tests. The 
extrapolation could have caused some differences. In general, higher pressure ratios will 
tend to entrain more flow around the configuration and thereby causing a greater suckdown 
increment. The higher pressure ratios also create stronger fountain increments due to the 
increase in strength of the lifting jets and therefore an increase in strength of the fountain. 



The point, labeled “fountain point”, is most likely an effect of the fountain created 
between the two jets. For configuration with larger fountains, a very perceptible hump is 
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usually created near this position in the curve. (A large hump can be seen in Figure #22 
from the YAV-8B configuration.) It is also possible this point could be a stray data point 
from the test, but the first explanation is most probable. PIE does not predict this hump 
most likely because 1) the hump is in its beginning stages and 2) since PIE is 
overpredicting the suckdown, the hump is still being washed out before it starts. 

Notice the magnitude of the lift increments for the body and wing-body (Figure #18 
and #19) are much smaller than the lift increments for the circular disk (Figure #17). This 
is due the differences in area near the jet exits. Suckdown is caused by the decrease in 
pressure on the underside of a configuration from the entrainment action of a jet. Since 
pressure is force per area, then there would be a larger force on a configuration which has 
more area near the jet. The disk is inches in diameter which is five times larger than the 
body width of four inches and therefore the disk experiences a larger negative lift 
increment. This can also be seen by comparing the lift increments of the body and wing- 
body configurations. The wing-body has a larger lift increment magnitude because it has 
the wing and the body near the nozzles. Basically the wing area near the nozzles causes the 
increase in the suckdown lift increment over that of the body. 

Delta 

The calculations for the delta planform agree well with the experimental data from 
the hover test rig. The two curves in Figure #20. are almost identical for low altitudes and 
diverge by only a small amount at the higher altitudes. Also, as expected, the magnitude of 
the lift increments were higher than the wing-body increments, due to the increase in area 
around the nozzles of the delta planform. 
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Figure #20. Comparison of calculated and measured lift increments in 
hover for the Delta planform (Reference 15) 


Mixed Flow Vectored Thrust 

The MFVT configuration with 3-jets is examined because a two jet cases was 
examined with the flat plate tests and the YAV-8B tests examine the 4-jet case. Figure #21 
is a comparison between the original program developed by Kuhn and PIE. As can be 
seen, all the lift increments are approximately the same except for a slight divergence 
between the suckdown terms. This deviations between the two codes can be attributed to 
the differences in the configuration variables. A great effort was made to ensure all 
configurations variables were the same throughout each program, but there were some 
variables which were calculated differently in PIE than were input by the user of Kuhn’s 
program. These variables included the planform areas and D the angular mean diameters 


of the planforms. 
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Figure #2 1 . Comparison of calculated lift increments in hover between 

Kuhn’s program and PIE for the MFVT, triangular 3-jet 
configuration (Reference 7) 


YAV-8B 

Figure #22 is a comparison between the total lift increments from wind tunnel tests 
of a 15% scale model of the YAV-8B and the total lift increments calculated by PIE. The 
hump in the data at the beginning of the graph is a result of the fountain arms and core 
caused by the four lifting jets of the configuration. The fountain effect tapers off at heights 
around 15 ft. for the calculated curve. The experimental curves has some fountain effects 
up to 24 ft. After the fountain effect diminishes, both curves reflect the trend of the 
suckdown increments. Some of the differences at the higher heights could be explained by 
the methods which were developed for the effect of lift improvement devices, wing height 
and body contour. (The body contour of some configurations are typically rounded to 
some extent, especially on the YAV-8B. Since the experimental results were found mostly 
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from test data of flat plate models, a multiplication factor was developed to correct for the 
flat plate data.) The development of methods for these effects were all based on very 



Figure #22. Comparison of calculated and measured total lift increments 
g in hover for 1 5% scale model of the YAV-8B (Reference 9) 


limited experimental data and therefore more experimental tests need to be completed to 
refine and gain confidence in the methods. Overall the results are promising for this case. 

Forward Flight 

Two additional lift increments are calculated for forward flight with nozzle 
deflection than are calculated for hover. These are the ground vortex and jet wake 
increments. Since forward flight contains all lift increments, it should be carefully verified. 
The only problem is experimental data for forward flight cases are veiy limited. The only 
actual experimental data available is for the YAV-8B. Due to the lack of data, more testing 
should be done to further validate the forward flight predictions. 

Forward flight with nozzle deflection is an important flight regime for V/STOL 
aircraft. This typically occurs when a V/STOL aircraft is in transition from jet bourn to 
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wing bourn flight or visa versa. Transition usually occurs near the ground and is a critical 
time for the aircraft. It can be a great advantage to the aircraft designer, while working on 
preliminary design, to know the lift increment characteristics of the aircraft in transition. 
This allows the designer to modify their configuration to obtain the most favorable forward 
flight lift increment characteristics. 


MFVT 

Again, the programs developed by Kuhn were used to check the validity of PIE for 
the MFVT 2-jet and 3-jet cases. The graphs created for this section were created to observe 
the variation of the lift increment with respect to V e , the dynamic pressure ratio. The 
dynamic pressure ratio is the square root of the ratio of the dynamic pressure of the aircraft 
to the dynamic pressure of the jet. 



Figure #23 Comparison of calculated lift increments in forward flight at 
an altitude of 6 ft. for the MFVT, lateral 2-jet configuration 
from Kuhn’s program and PIE (Reference 7) 
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Figure #23 is a comparison of the lift increments calculated from PIE and Kuhn’s 
program for the MFVT configuration, with two laterally placed jets, in forward flight. 

There are a number of discrepancies in the two codes which are explained next. 

PIE overpredicts the suckdown/fountain from Kuhn’s program by almost 80% at 
low velocities. The magnitude of overprediction decreases as the velocity is increased. 

The reason for this overprediction is when Kuhn’s program calculates this term, it uses a 
single jet equation, equation (4) without the multiple jet factor Ks, to calculate the multiple 
jet suckdown. This single jet equation calculates a much smaller suckdown effect than the 
multiple jet equation. Another small discrepancy in the suckdown calculation is the 
addition of an extra OGE suckdown term, equation (3), present in the fountain calculation. 
This would tend to offset the previous miscalculation, but the magnitude of the OGE term 
is significantly less than the suckdown term in ground effect. 

The ground vortex terms agree closely until the dynamic pressure ratio (V e ) reaches 
a value of . 1. After this point Kuhn’s calculations tend towards zero faster than PIE’s 
calculations. This is attributed to the variation in the algorithms between the two codes. 

The maximum height for which the ground vortex effects are felt is not the same for the 
body as for the wing. Kuhn’s code assumes the total ground vortex term is zero when the 
maximum ground vortex height for the body is reached. The method described in 
reference 12 indicates the ground vortex effects still occur on the wing after the effects on 
the body reach zero. From the graph it can be seen when Kuhn’s ground vortex term 
reaches zero, PIE’s ground vortex term changes slope. This is because the ground vortex 
effects are still occurring on the wing after the body’s ground vortex effects become zero 

This is the method is presented in reference 13. 

The wake terms also are the same at low velocities and diverge with higher velocity. 

These differences can be attributed to three reasons: 

1) Kuhn’s program does not include the lift adjustment factors for longitudinal 
position and flap extension which are used with equation (16). 
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2) A mistake in the formula for the wing aspect induced lift adjustment factor 
was found in Kuhn’s code. 

3) A term is used in Kuhn’s code which is only to be calculated when there are 

longitudinal placed jets. This configuration has laterally placed jets. 

Figure #24 is a comparison of lift increments calculated from PIE and Kuhn’s 
program for the MFVT configuration, with three jets, in forward flight. The discrepancies 
found in this figure for the suckdown/fountain and the ground vortex lift increments are 
due to the same reasons suggested above for the two-jet case. 



Figure #24 Comparison of calculated lift increments in forward flight at 
an altitude of 6 ft. for the MFVT, triangular 3-jet 
configuration from Kuhn’s program and PEE (Reference 7) 

The differences between the wake terms are also for the same reason as the two-jet 
case except there are a few other distinctions. When Kuhn’s program calculates the aspect 
induced lift adjustment factor, which is used with equation (16), it uses the lowest body 
width instead of the width at the wing which is the width PIE uses. PIE does not use the 
lowest body width so therefore the values are perturbed slightly. Another difference 
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between the two codes, is when PIE calculates the longitudinal position adjustment factor 
for the wing, it uses an equation specific for the wing. Kuhn’s program uses a value of 
1.0 for the wing. Also when there is a jet near the trailing edge, Kuhn’s program uses a 
different equation for the lift increment than the wing equation, similar to equation (17), 
used by PIE. This is the reason for the different trends during the low velocities of the 
graph. This wing equation calculates a positive value for the wake lift increment due to the 
placement of the jets in relation to the trailing edge of the wing (the jet flap effect). 

The total lift increments for each configuration follow from the summation of all the 
individual lift increments. Since each individual lift increment from the two codes are not 
the same then it follows the total lift increments will not be identical either. 

The comparison between the two codes helped debug PIE and also helped find 
some discrepancies between the original programs developed by Kuhn and the methods 
developed by Kuhn and Stewart. 

YAV-8B 

The forward velocity experimental data for the YAV-8B is very limited, and 
provides only three velocity points; 0, 17 and 24 knots. These correspond to dynamic 
pressure ratios of 0.0, 0.023 and 0.033 respectively. More experimental data points are 
needed, especially in the higher velocity region, to draw more meaningful conclusions. 

The comparisons between experimental and calculated lift increments for the 
YAV-8B are shown in Figure #25. Three different altitudes are shown in the graph: 4, 10, 
and 25 ft. The trends of the experimental test can not be accurately determined from three 
data point so the only analysis which can be accomplished is to examine the magnitudes of 
the lift increments. The lift increments at lower heights tend to agree more than those at 
greater heights but for the limited velocity range, PIE predicted the total lift increments 
well. A possible reason for the differences between PIE and experimental results can be 
attributed to the assumption that all lift increments are linear and can be summed together 
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with no adjustment factors. (The experimental data in Figure #25 are connected with lines 
to allow the reader to distinguish between the three groups of curves). 



Figure #25. Comparison of calculated and measured total lift increments 
in forward flight for a 15% scale model of the YAV-8B 
(Reference 9) 




CHAPTER 6 

Conclusions and Recommendations 


An easy to use, and modify computer code was developed which makes 
preliminary estimates of lift increments encountered by V/STOL aircraft due to the 
suckdown, fountain, ground vortex, and jet wake. This code provides the user with a 
quick and easy-to-use way to evaluate the trends and magnitudes of lift increments 
encountered by V/STOL aircraft in hover and transition. 

The Power Induced Effects Module is able to reproduce the trends of the lift 
increments encountered in hover accurately for the flat plate models. The magnitude of the 
lift increments are reasonably accurate for the range of values investigated. The values of 
the MFVT hover lift increments calculated using Kuhn’s program and PIE agree quite well 
and any inaccuracies are explained by the differences between the configuration variables. 
The hover lift increments calculated by PIE for the YAV-8B agree well with the 
experimental results. 

The lift increments encountered in forward flight are calculated by PIE and Kuhn’s 
code for two MFVT configurations. The magnitudes and trends of these lift increments 
agree well except for small differences which are caused by slight deviations between the 
algorithms of the two programs. There are not enough experimental lift increment points to 
accurately evaluate the trends from PIE for the YAV-8B. The magnitudes of the calculated 
lift increments fall close to those of the experimental lift increments. Given the number of 
configuration variables, these accuracies are quite good. 

The most obvious drawback of the power induced effect module is the lack of 
forward flight, jet deflection angle, and angle of attack validation. Further validation of 
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PIE needs to be accomplished for these independent variables. Also the code needs to be 
fully incorporated into the ACSYNT design program so it can be used to its fullest 
potential. 

An enhancement to the code would be the addition of routines which would 
calculate the moment increments which are caused by the non-symmetric lift increments. 
This would not be very difficult because the code was initially written with the intent to 
include these moment increments so most of the necessary variables have already been 
incorporated within the code. Lack of time was the reason this was not done for this 
project. Much testing and validation needed to be completed for the moment increment 
routines, similar to the amount done for the lift increment routines. 
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APPENDIX A 


PIE FORTRAN Code 


Coppif 


PROGRAM COPPIE 


C ACRONYM: control Program for Powered Induced Effects. 

C PURPOSE: The purpose of COPPIE is to act as the control program (or 
C driver) for the Power Induced Effects Module. Its function 

C is to know everything about the aircraft that is being 

C analyzed. In other words, it will provide all the 

C subroutines that it calls with what what ever input is 

C needed to complete the calculations for a particular 

C configuration. 

C LOCAL VARIABLES (in addition to the above parameters) : 

C NAME TYPE I/O UNITS DESCRIPTION 


C ICALC I - Flag which ACSYNT uses to control 

C execution of subroutines. 

C 1 = Input 

C 2 = Calculations 

C 3 = Output 

C (Not used at this time) 

C GLOBAL VARIABLES (in addition to the above parameters and local vars) : 
C (This variable list contains all variables in the Power Induced 
C Effects module separated by their respective common blocks. The rest 
C of the subroutines contains only those variables which are present 
C within that individual subroutine.) 

C 


C CONPIE Common Block 


c 

c 

c 

NAME 

TYPE 

I/O 

UNITS 

DESCRIPTION 

AEND 

R 

I 

deg 

Ending value for angle of attack 

c 

ASTART 

R 

I 

deg 

Starting value for angle of attack 

c 

ASTEP 

R 

I 

deg 

Step value for angle of attack 

c 

c 

DEND 

R 

I 

deg 

Ending value for jet deflection 
angle 

c 

c 

D START 

R 

I 

deg 

Starting value for jet deflection 
angle 

c 

DSTEP 

R 

I 

deg 

Step value for jet deflection angle 

c 

HEND 

R 

I 

Ft 

Ending value for altitude 

c 

HSTART 

R 

I 

Ft 

Starting value for altitude 

c 

HSTEP 

R 

I 

Ft 

Step value for altitude 

c 

VEND 

R 

I 

kts 

Ending value for aircraft velocity 

c 

VS TART 

R 

I 

kts 

Starting value for aircraft 
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C VSTEP R I 



C FIGPIE Common Block 


c 

NAME 

TYPE 

I/O 

UNITS 

c 


— 

— 


c 

B B 

R 

I 

Ft 

c 

B CS 

R 

I 

Ft 

c 

B JP 

R 

I 

Ft 

c 

B w 

R 

I 

Ft 

c 

B WB 

R 

I 

Ft 

c 

CONFIG 

C*18 

I 

— — 

c 

D F 

R 

I 

Ft 

c 

D R 

R 

I 

Ft 

c 

D RCS 

R 

I 

Ft 

c 

DB B 

R 

I 

Ft 

c 

DB CS 

R 

I 

Ft 

c 

DB W 

R 

I 

Ft 

c 

DB WB 

R 

I 

Ft 

c 

DE F 

R 

I 

Ft 

c 

DE FR 

R 

I 

Ft 

c 





c 

DE R 

R 

I 

Ft 

c 

DR 

R 

I 

— 

c 

E 1 

R 

I 

Ft 

c 

E 3 

R 

I 

Ft 

c 

E 4 

R 

I 

Ft 

c 

F NAME 

C*50 

I 



c 





c 

KB 

R 

I 

— 

c 

KLF 

R 

I 

— — 

c 





c 





c 

KR 

R 

I 

— 

c 

L B 

R 

I 

Ft 

c 

L CS 

R 

I 

Ft 

c 

L F 

R 

I 

Ft 

c 

L R 

R 

I 

Ft 

c 

L WB 

R 

I 

Ft 

c 

MAC 

R 

I 

Ft 

c 

MD RCS 

R 

I 

lbirt/s 

c 

N_BODY 

I 

I 

— 

c 





c 

N_CS 

I 

0 

— 

c 





c 

NJWING 

I 

I 

— 

c 





c 

N_WB 

I 

I 

— — — 

c 





c 

NDIV 

I 

I 

— 

c 





c 





c 

NUM 

I 

I 

Ft 

c 

NUM F 

I 

I 

— 

c 

NUM R 

I 

I 

— — 

c 

PER FR 

R 

I 

Ft 

c 

PP LID 

R 

I 

— 


C 


velocity 

Step value for aricraft velocity 


description 


Width of Body 
Width of Center Section 
Width of Jet Pattern 
Width of Wing (Wing span) 

Width of Wing-Body 

Short title of current config 

Diameter of each Front jet 

Diameter of each Rear jet 

Diameter of Roll RCS nozzle 

Dbar of Body 

Dbar of Center Section 

Dbar of Wing 

Dbar of Wing-Body 

Effective Diameter of Front jets 

Effective Diameter of Front & Rear 

jets combined 

Effective Diameter of Rear jets 
Density Ratio (Jet / Atm) 

Half dist between adjacent jets (1) 
Half dist between adjacent jets (3) 
Half dist between adjacent jets (4) 
Name of file which contains body & 
wing planform coordinates 
Boundary layer factor 
Adjustment factor for flap 
extension when calculating the lift 
loss due to jet induced effects. 

Body contour factor 

Length of body 

Length of Center Section 

Length of Front jet 

Length of Rear jet 

Length of Wing-Body 

Mean Aerodynamic Chord of wing 

Mass flow rate for one RCS nozzle 

Number of data points for Body 

planform 

Number of data points for Center 

Section planform 

Number of data points for Wing 

planform 

Number of data points for Wing-Body 
planform 

Number of divisions to be used when 
calculating suckdown areas (SDAREA) 
and Dbars (DIABAR) 

Total NUMber of jets 

NUMber of Front jets 

NUMber of Rear jets 

Total perimeter of jets 

Ratio of perimeter enclosed by lids 

to total perimeterC 
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c 

PR F 

R 

I 

— 

c 

PR FR 

R 

I 

— 

c 

PR R 

R 

I 

— 

c 

PR RCS 

R 

I 

— 

c 

PT RCS 

R 

I 

lb/ sq ft 

c 

Q F 

R 

I 

lb/ sq ft 

c 

Q_FR 

R 

I 

lb /sq ft 

c 





c 

Q R 

R 

I 

lb/sq ft 

c 

Q RCS 

R 

I 

Ib/sq ft 

c 

R B 

R 

I 

Ft 

c 

S B 

R 

I 

Sq Ft 

c 

S CS 

R 

I 

Sq Ft 

c 

S F 

R 

I 

Sq Ft 

c 

S FA1 

R 

I 

Sq Ft 

c 

S FA3 

R 

I 

Sq Ft 

c 

S FA4 

R 

I 

Sq Ft 

c 

S FR 

R 

I 

Sq Ft 

c 

S JP 

R 

I 

Sq Ft 

c 

S LID 

R 

I 

Sq Ft 

c 

S R 

R 

I 

Sq Ft 

c 

S W 

R 

I 

Sq Ft 

c 

S WB 

R 

I 

Sq Ft 

c 

SCALE 

R 

I 

— 


c 

c 

c 

c 

c 

c 

C SCALE 3 R I 

C 

c 

c 

c 


C 

C 

SF_FB 

R 

I 

Sq Ft 

C 

C 

SF_FW 

R 

I 

Sq Ft 

c 

c 

’ SF_FWB 

R 

I 

Sq Ft 

c 

c 

SF_RB 

R 

I 

Sq Ft 

c 

c 

SF_RW 

R 

I 

Sq Ft 

c 

c 

SF_RWB 

R 

I 

Sq Ft 

c 

c 

SP_FA1 

R 

I 

Sq Ft 

c 

c 

SP_FA3 

R 

I 

Sq Ft 

c 

c 

SP_FA4 

R 

I 

Sq Ft 

c 

c 

SP_JP 

R 

I 

Sq Ft 

c 

SPLY F 

R 

I 

Ft 

c 

SPLY R 

R 

I 

Ft 

c 

T F 

R 

I 

lb 


Jet Pressure Ratio for front jets 
Jet Pressure Ratio for all jets 
Jet Pressure Ratio for rear jets 
Roll RCS Pressure Ratio 
Total pressure for one roll RCS jet 
Dynamic pressure for the front jets 
Dynamic pressure for Front and Rear 
jets 

Dynamic pressure for the rear jets 
Dynamic pressure for roll RCS jets 
Corner radius of body sides. 

Area of Body 

Area of Center Section 

Area of Front jets 

Area affected by fountain arm (1) 

Area affected by fountain arm (3) 

Area affected by fountain arm (4) 

Total jet exit area 

Area enclosed by Jet Pattern 

Area enclosed by LIDS 

Area of Rear jets 

Area of Wing 

Area of Wing-Body 

Actual scale factor which adjust 

the area of fountain arm (3) to 

account for the fact the curvature 

of the aircraft's nose tends not to 

hold fountain arm very well causing 

the area that fountain arm affects 

to be scaled down. 

Fountain arm (3) scaler (Percentage 
measured from the front jets to the 
nose of the aircraft . ) Tries to 
approximate SCALE but does not do a 
great job (better than nothing.) 
Area ahead of Front jets using body 
planform 

Area ahead of Front jets using wing 
planform 

Area ahead of Front jets using the 
wingbody planform 
Area ahead of Rear jets using the 
body planform 

Area ahead of Rear jets using the 
wing planform 

Area ahead of Rear jets using the 
wingbody planform 

Potential area affected by fountain 
arm (1) 

Potential area affected by fountain 
arm (3) 

Potential area affected by fountain 
arm (4) 

Actual surface area within area 
enclosed by nozzles 
SPLaY angle of Front jet 
SPLaY angle of Rear jet 
Thrust of Front jets 
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C 

T FR 

R 

I 

lb 

C 

T R 

R 

I 

lb 

c 

T RCS 

R 

I 

lb 

c 

THA 1 

R 

I 

deg 

c 

THA 3 

R 

I 

deg 

c 

THA_4 

R 

I 

deg 

c 

TP_RCS 

R 

I 

Rankine 

c 





c 

TT F 

R 

I 

— 

c 

TT R 

R 

I 

— 

c 

W F 

R 

I 

Ft 

c 

W R 

R 

I 

Ft 

c 

WIWE 

R 

I 

— — — 

c 





c 

WL B 

R 

I 

— — — 

c 

WL_CS 

R 

I 

— — — 

c 





c 

WL F 

R 

I 

— 

c 

WL JP 

R 

I 

— — 

Pattern 




c 

WL R 

R 

I 

— — 

c 

WL WB 

R 

I 

— — 

c 

X BODY (500)R 

I 

Ft 

c 

X CORE 

R 

I 

FT 

c 

X_CS (30) 

R 

0 

Ft 

c 





c 

X FR 

R 

I 

Ft 

c 

X_RCS 

R 

I 

Ft 

c 





c 

X WB (500) 

R 

I 

Ft 

c 

X WING (500) R 

I 

Ft 

c 

XCA_CG 

R 

I 

Ft 

c 





c 

X CA 

R 

I 

Ft 

c 

X CG 

R 

I 

Ft 

c 

XCG C2 

R 

I 

Ft 

c 

XCG C4 

R 

I 

Ft 

c 

XCG F 

R 

I 

Ft 

c 

XCG_I 

R 

I 

Ft 

c 





c 

XCG R 

R 

I 

Ft 

c 

XNOZ F 

R 

I 

Ft 

c 

XNOZ R 

R 

I 

Ft 

c 

XTE_F 

R 

I 

Ft 

c 





c 





c 

XTE_R 

R 

I 

Ft 

c 





c 





c 

Y_1 

R 

I 

Ft 

c 





c 

Y_3 

R 

I 

Ft 

c 





c 

Y_4 

R 

I 

Ft 

c 





c 

Y BODY (500) R 

I 

Ft 

c 

Y CORE 

R 

I 

FT 

c 

Y CS (30) 

R 

0 

Ft 


Total thrust in all jets 
Thrust of Rear jets 
Thrust of roll RCS nozzle 
Half angle between jets (1) 

Half angle between jets (3) 

Half angle between jets (4) 
Temperature of flow in roll RCS 
nozzle 

Front Thrust / total Thrust 

Rear Thrust / total Thrust 

Width of Front jet 

Width of Rear jets 

Flow Weight of Inlet / Flow Weight 

of Exit 

Width to Length ratio of Body 
Width to Length ratio of Center 
Section 

Width to Length ratio of Front jets 
Width to Lenght ratio of Jet 

Width to Length ratio of Rear jets 
Width to Length ratio of Wing-Body 
X-coordinates of Body planform 
X-coordinate of fountain core 
X-coordinates of Center Section 
planform 

Distance between Front & Rear jets 
Distance of roll RCS nozzle ahead 
of wing trailing edge 
X-coordinates of Wing-Body planform 
X-coordinates of Wing planform 
Distance of center of area ahead of 
CG 

X-coordinate of Center of Area 
X-coordinate of Center of Gravity 
Distance from CG to MAC/2 
Distance from CG to MAC/4 
Distance Front jet is ahead of CG 
Inlet longitudinal distance ahead 
of CG 

Distance Rear jet is ahead of CG 
X-coordinates of Front NOZzle 
X-coordinates of Rear NOZzle 
X-coordinate of trailing edge 
for front nozzle (root TE if 
Nozzle within body) 

X-coordinate of trailing edge 
for rear nozzle (root TE if 
Nozzle within body) 

Spanwise extent of planform on 
fountain arm (1) center line. 
Spanwise extent of planform on 
fountain arm (3) center line. 
Spanwise extent of planform on 
fountain arm (4) center line. 
Y-coordinates of Body planform 
Y-coordinate of fountain core 
Y-coordinates of Center Section 



55 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c ■ 

C l 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Y F 

R 

I Ft 

YNOZ F 

R 

I Ft 

YNOZ R 

R 

I Ft 

Y R 

R 

I Ft 

Y_RCS 

R 

I Ft 

Y WB (500) 

R 

I Ft 

Y WING ( 500 )R 

I Ft 

YB_F 

R 

I Ft 

YB_R 

R 

I Ft 

YP 1 

R 

I Ft 

YP 3 

R 

I Ft 

YP 4 

R 

I Ft 

YWB__F 

R 

I Ft 

YWB_R 

R 

I Ft 

Z B 

R 

I Ft 

ZCG I 

R 

I Ft 

z w 

R 

I Ft 

40VPIE Common Block 

NAME 

TYPE 

I/O UNITS 


— 



AJ 

R 

I Sq Ft 

BFl 

R 

I Ft 

BF3 

R 

I Ft 

BF4 

R 

I Ft 

BFP1 

R 

I Ft 

BFP3 

R 

I Ft 

BFP4 

R 

I Ft 

DB 

R 

I Ft 

DC 

R 

I Ft 

DE 

R 

I Ft 

DH 

R 

I Ft 

E 

R 

I Ft 

HEIGHT 

R 

I Ft 

HW 

R 

I Ft 

KRB 

R 

I Ft 

L 

R 

I Ft 

NJETS 

I 

I 

PER 

R 

I Ft 

PP 

R 

I 

PR 

R 

I 

SB 

R 

I Sq Ft 

SC 

R 

I Sq Ft 

SCP 

R 

I Sq Ft 


planform 

Distance between Front jets 
Y-coordinates of Front NOZzle 
Y-coordinates of R NOZzle 
Distance between Rear jets . 
Distance of roll RCS nozzle in from 

wincrtip 

Y-coordinates of Wing-Body planform 
Y-coordinates of Wing planform 
Lateral distance from Body to Front 
jets (for external jets) 

Lateral distance from Body to Rear 
jets (for external jets) 

Max spanwise extent of planform (1) 
Max spanwise extent of planform (3) 
Max spanwise extent of planform (4) 
Lateral distance from Wingbody to 
Front jets (for external jets) 
Lateral distance from wingbody to 
Rear jets (for external jets) 

Height of body base above nozzle 
Inlet vertical distance above CG 
height of wing above nozzle 


DESCRIPTION 


Total jet exit area. 

Half length of fountain arm (l) • 

Half length of fountain arm (3) . 

Half length of fountain arm (4) . 
Maximum spanwise extent of fountain 

arm (D • ^ _ 

Maximum spanwise extent of fountain 

arm (3) . ^ _ . . 

Maximum spanwise extent of fountain 

arm (4) . 

Body D bar. 

Configuration D bar . 

Equivalent diameter of jets. 

Delta height of wing. 

Length to width ratio of jet 
pattern. 

Altitude at which calculations are 
to be made . 

Half width of body for jets outside 
outside of body, else use half 
distance between adjacent jets. 

Body contour factor 
Length of configuration. 

Total number of jets on config 
Total perimeter of jets (all jets) 
Fraction of lid perimeter enclosed 
Jet pressure ratio. 

Planform area of body . 

Area enclosed by jet pattern. 

Actual surface area inside jet 
pattern. 
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c 

SFAl 

R 

I Sq Ft 

c 

SFA3 

R 

I Sq Ft 

c 

SFA4 

R 

I Sq Ft 

c 

SFA1P 

R 

I Sq Ft 

c 

c 

SFA3P 

R 

I Sq Ft 

c 

c 

SFA4P 

R 

I Sq Ft 

c 



I Sq Ft 

c 

SL 

R 

c 

SP 

R 

I Sq Ft 

c 

SPLAY 

R 

I Deg 

c 

THAI 

R 

I Deg 

c 

THA3 

R 

I Deg 

c 

THA4 

R 

I Deg 

c 

WB 

R 

I Ft 

c 

wc 

R 

I Ft 

c 

XI 

R 

I Ft 

c 




c 

X3 

R 

I Ft 

c 




c 

X4 

R 

I Ft 

c 




c 

XCA 

R 

I Ft 

c 

YF 

R 

I Ft 

c 

YR 

R 

I Ft 

c 




c : 

MISC Common 

Block 


c 

NAME 

TYPE 

I/O UNITS 

c 


— 

— 

c 

POINTS 

I 

I 

c 




c 

XPTS (500) 

R 

I 

c 

YPTS (500) 

R 

I 

c 

TOTAL 

R 

I 

c 




c 

PIEFLAG Common Block 

c 

NAME 

TYPE 

I/O UNITS 

c 

c 

FLGRCS 

L 

o 

c 




c 




c 

HDEOUT 

L 

I 

c 




c 




c 




c 

PRTFLG 

L 

I 

c 

RCSFLG 

L 

o 

c 




c 




c 




c 




c 

TYPE F 

C*4 

o 

c 




c 

TYPE R 

C*4 

o 

c 

VEOUT 

L 

I 


C 

C 


Area affected by fountain arms (1) . 
Area affected by fountain arms (3) . 

a affected by fountain arms (4) . 
Potential surface area between 
jets (1) 

Potential surface area between 
jets (3) 

Potential surface area between 
jets (4) 

Area enclosed by lids. 

Planform area of configuration 
Front jet splay angle. 

Half angles between jets (1) • 

Half angles between jets (3) . 

Half angles between jets (4) . 

Width of body. 

Width of configuration. 

Half distance between adjacent 
jets (1) • 

Half distance between adjacent 
jets (3) . 

Half distance between adjacent 
jets (4) . 

Distance center of area ahead of cg 
D istance between front jets. 
Distance between rear jets. 


DESCRIPTION 


Number of points which define 
polygon (not to exceed 500) 
X-coordinates of polygon 
Y-coordinates of polygon 
Total area enclosed by the polygon. 


DESCRIPTION 

Flag which signals if there is an 
RCS on the configuration 
(TRUE - RCS, FALSE - No RCS) 

Signals when to output tables based 
on height or height /De 

TRUE - Print based on Heiaht/DE, 
FALSE - Print based on height 
Signals when to output to screen. 
Flag which identifies if RCS lift 
loss has calculation exceeded the 
area ratio (Swing / A jet > 7000) 
TRUE - Exceeded 
FALSE - Not Exceeded 
Discription of type of front nozzle 
(CIRCular, OVAL, RECTangular) 

Same as TYPE_F but for rear nozzles 
Signals when to output tables based 
on VE 

TRUE - Print Based on VE 
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FALSE - Print Based on Velocity 
Identifies when WingBody planform 
has been enter by the user. Used to 
determine when to use wingbody in 
calculations. 


DESCRIPTION 

^j-g 3 ratio — based on wether the 
wing or body is being used 
Area of the front jets 
Equivalent Diameter of front jets 
Diameter of front jets 
Height of wing above jets 
Distance from jet pattern center 
to center of front jets. 

Lift loss due to ground vortex. 
Number of front jets 
Dynamic pressure of the nozzles 
Front thrust split 

Width to length ratio of the body. 
Width to length ratio of the jets. 


DESCRIPTION 


Wing span 

Roll RCS jet Diameter. 

Roll jet nozzle pressure ratio. 

Roll jet dynamic pressure. 

Wing area 

Wing area / jet area 

RCS roll jet thrust 

Jet distance ahead of wing trailing 

edge . 

Jet distance in from wing tip. 


DESCRIPTION 

Error flag returned by DIABAR. If 
IFLAG = 1, then an explanation of 
the problem is given at the time of 
the error. 

0 = no errors. 

1 = values of dbar & area 

probably bad. 

2 = moved x-position of dbar 

point/nozzle point to 
geometric center. 

3 = input NANGLE was 

inappropriate (set to 
absolute value or 1000) . 

4 = Points entered in wrong 

direction, routine aborted. 
Must enter points from left 
to right. 



o o o o o 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SDAERR I o 


T ERR I O 


5 = 1st and last points not on 

x-axis, routine aborted. 

6 = the sweeping ray intersected 

more than 4 points or zero 
points; values returned may 
be bad. 

ERROR FLAG RETURNED BY SDAREA. IF 
I FLAG = 1/ THEN AN EXPLANATION OF THE 
PROBLEM IS GIVEN AT TIME OF THE ERROR. 

0 = NO ERRORS. 

1 = THERE WAS AT LEAST ONE VERTICAL 

LINE WITHIN PLANFORM DATA. 

(SECOND VALUE PERTURBED BY .05 
UNITS) . 

2 = NOZZLE HAVE BEEN PLACED EITHER 

IN FRONT OF OR BEHIND THE AIRCRAFT 
(ROUTINE ABORTED) . 

3 = INPUT NSLICE WAS INAPPROPRIATE 

(SET TO ABSOLUTE VALUE OR 1000) . 

4 = POINTS ENTERED IN WRONG DIRECTION, 

ROUTINE ABORTED. MUST ENTER 
POINTS FROM LEFT TO RIGHT. 

5 = 1ST AND LAST POINTS NOT ON X-AXIS, 

ROUTINE ABORTED. 

6 = THE NUMBER OF SLICES THAT WERE 

ADDED BY COMPUTER EXCEEDS MAXIMUM 
VALUE OF 2000 INTERNAL SLICES. 
DECREASE NUMBER OF SLICES. 

Thrust variables (T_F,T_R, T_FR, 

TT F, TT_R) were entered in the 
wrong combination 


PIESF Common Block 

NAME TYPE I/O UNITS DESCRIPTION 


AJ R 

DC R 

DF R 

DE R 

DH R 

HEIGHT R 

HLTF R 

HPRIME R 

KBL R 

LP R 

LTS R 

N I 

NF I 

PR R 

Q R 

WL R 

YF R 


I Sq Ft 
I Ft 

I Ft 
I Ft 
I Ft 
I Ft 

I 

I 

I 

I 

I 

I Ib/Sq Ft 


Area of front and rear nozzles. 

Dbar of the configuration used 
(Based on the wing height) . 

Diameter of individual front jet. 
Equivalent diameter of all jets. 
Wing height above nozzles 
Altitude at which calculations are 
to be made. 

Hover lift gain due to fountain 
effects 

H* calculated from HOVPIE 
Boundry layer factor 
Distance between front and rear 
nozzles. 

Hover lift loss due to suckdown. 
Total number of nozzles. 

Total number of front nozzles. 
Pressure ratio of nozzles. 

Average dynamic pressure of nozzles 
Average width to length of front 
and rear nozzles 
Distance between front nozzles. 
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C PIEWK Common Block 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 

AFACT 

AJ 

AR 

B 

CU 

DH 

DI 

FIGWK 

HEIGHT 
KL F 


LT 

LTO 

LT_FLP 

LT_OG 

MC 

N 

PR 

Q 

QO 

S 

SF 

T 

TEFALG 


WL 

XC 

Y 

YP 

VEFAC1 


TYPE I/O 


R 

R 

R 

R 

R 

R 

C 

R 

R 


R 

R 

R 

R 

R 

I 

R 

R 

R 

R 

R 

R 

L 


R 

R 

R 

R 

R 


I 

I 

I 

I 

I 


I 

I 


0 

I 

I 

I 

I 

0 

I 

I 


I 

I 

I 


C RESPIE Common Block 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 

A 

AOA (500) 
D 

DFL (500) 
GV LT 


TYPE I/O 


I 

R 

I 


0 

I 

o 


UNITS 


Sq. Ft 


Ft 

Ft 


Ft 


lb/Sq Ft 
lb/Sq Ft 
Sq Ft 
Sq Ft 

lb 


Ft 

Ft 


UNITS 


deg 


deg 


DESCRIPTION 

Area ratios used in calculating 
the lift loss due to the jet wake. 
Total area of the jets in question. 
Aspect ratio of the planform. 

Width of current body config. 
Momentum coef. based on nozzle. 
Vertical position of the jet based 
on the planform. 

Diameter of the jets in question. 
Flag which notifies JTEPIE which 
planform is in use. 

Height of aircraft 

Adjustment factor used for flap 

extension 

1.0 - Flaps extended 
.25 - Flaps not extended 

Lift loss retured by STOLWK 
Lift loss out of ground effect. 

Basic lift gain due to jet flap 
action. 

Out of ground lift loss 
Mean Aerodynamic Chord. 

Number of nozzles based on which 
nozzle used (Front f Rear) 

Pressure Raito of local jets. 

Jet dynamic pressure 

Free stream dynamic pressure. 

Area of the configuration. 

Area of configuration that is in 
front of nozzles. 

Thrust of the jets in question. 

Flag which notifies STOLWK how 
close nozzle is to the trailing 
edge of the wing. 

Width to length ratio of nozzles. 
Position of nozzle with respect to 
wing trailing edge (in % chord) 
Lateral spacing of jets. 

Distance of jet center to bodyside. 
Effective velocity factor which . 
accounts for reduction in velocity 
at rear nozzles due to front nozzle 
Vertical distance of the nozzles. 


DESCRIPTION 

Angle of attack number counter 
Actual Angle Of Attack value. 
Nozzle deflection angle number 
counter. 

Actual nozzle deflection angle 
value 

Total lift loss due to the ground 
vortex . 


0 



c GV_LTB R o 

C 

c GV_LTW R o 

C 

C H 10 

C H_HPRI R 0 Ft 

C 

c 

c H_LT (500) R o 

C 

c H_LTF ( 500 ) R 0 

C 

c H_LTL (500) R 0 

C 

c H_LTOG R o 

C 

C HLTOGE ( 5 0 0 ) R 0 

C 

c 

C H_LTS ( 500 ) R O 

C 

C HT ( 500 ) R 0 Ft 

C LA R I 

C 

c LD R I 

C 

C LH R I 

C LV R I 

C REC3 I 0 

C 

c REC4 I 0 

C 

C RCS_LT ( 1 , 5 0 0 ) R 0 

C 

C SF_LT R o 

C 

C 

C SF_LTF R 0 

C 

C •' SF_LTS R o 

C 

C V I o 

C VO (500) R o 

C WK_LT R O 

C 

C 

c WK_LTB R o 

C 

C WK_LTW R o 

C 

C FILES USED: 

C LOGICAL UNIT I/O DESCRIPTION 

C 68 O 

C 70 O 

c 

C 71 

C 
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Lift loss due to the ground vortex 
effect on the body alnoe 
Lift loss due to the ground vortex 
effect on the wing alone 
Height number counter 
Height to which tangent line 
intersects dL/T=0 (Used in Hover 
hprime method, obviously) 

Total lift loss calculated while 
in hover. 

Lift gain due to fountain effects 
while in hover. 

Lift gain due to the addition of 
LIDs while in hover. 

Lift loss out of ground effect 
while in hover. 

Lift loss out of ground effect 
while in hover based on deflection 
angle . 

Lift loss due to suckdown while m 
hover . 

Actual height value 

Total number of Angle of Attack 

values 

Total number of nozzle deflection 
angles. 

Total number of height values. 

Total number of velocity values. 

Record number for any file which 

replaces a 3 X 3 matrix 

Record number for any file which 

replaces a 4 X 4 matrix 

Total lift loss from the Reaction 

Control System. 

Total lift/gain due to the suckdown 
and fountain effects while in 
forward flight. 

Lift gain due to fountain effects 
while in forward flight. 

Lift loss due to suckdown effects 

while in forward flight 

Velocity number counter 

Actual velocity value 

Total lift loss due to the jet 

wake system produce in forward 

flight 

Lift loss due to jet wake system 
produced on the body . 

Lift loss due to jet wake system 
produce on the wing. 


Seguencial file for table output 

Direct access file for storage of lift increment 

due to suckdown 

Direct access file for storage of lift increment 
due to fountain 


0 
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C 72 
C 

C 73 
C 

C 74 
C 

C 75 

C 

C 

C COMMONS USED: 
C NAME 


0 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C List of all 
C NAME 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


CONPIE 


FIGPIE 


HOVPIE 


PIEFLAGS 


PIEGV 


PIERCS 


PIERROR 


PIESF 


PIEWK 


POLYGON 


RESPIE 


(All 


Direct access file for storage of lift increment 
due to the ground vortex on the body 
Direct access file for storage of lift increment 
due to the ground vortex on the wing 
Direct access file for storage of lift increment 
due to the jet wake on the body t 

Direct access file for stroage of lift increment 
due to the jet wake on the wing (with out center 

section) 

common blocks used throughout PIE) 


DESCRIPTION 


COPPIE 

INPIE 

PLANMO 

FINVAR 

S DARE A 

DIABAR 

HCALL 

HOV_GE 

SFCALL 

STOLSF 


CONtrol variables for Power Induced Effects - Contains 
variables which control the execution of the PIE module. 
conFIGuration for Power Induced Effects -Contains all 
variables needed to define the configuration and other 
parameters of the aircraft. 

HOVer variables for Power Induced Effects Contains 
variables which are sent to the HOV_GE subroutine 
Power Induced Effects FLAGS - Contains variables which 
help keep track of the configuration of the aircraft. 
Power Induced Effects for stolGV - Contains 
variables which are sent to the STOLGV subroutine. 

Power Inducde Effects for the Reaction Control System - 
Contains variables which are sent to the RCSIND 

subroutine. , __ 

Power Induced Effects for eRRORs - Contains all error 

flags within PIE. 

Power Induced Effects for stolSF - Contains 
variables which are sent to the STOLSF subroutine 
Power Induced Effects for stolWK and jiepie - Contains 
all variables which are passes to the STOLWK and JIEPIE 

subroutines. „ , . . . V/4 

Contains the points used in POLYAR when calculating the 
area of a polygon and CENTAR when calculating the center 

of area. 

RESults from all POwer Induced Effects subroutines 
Contains results from each subroutine along with 
variables for height, velocity, jet defelction angle, 
and angle of attack and their counters, 
routines : 

DESCRIPTION 

Controls execution and coordination of Power Induced 
Effects Module 

Sets defaults for variables and reads user defined input 

file , , . . 

Modifies planforms for consistency and integrity . 
Calculates all variables which have not been defined by 
the user or set to a default value 

Calculates areas necessary to make calculations for 
fountain effect 

Calculates angular mean diameter of a planform 
Isolates and controls execution of HOV_GE 
Calculates hover lift increments for OGE and GE 
suckdown, and fountain effects 
Isolates and controls execution of STOLSF 
Calculates suckdown and fountain lift increments while 
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c in STOL flight 

C GVCALL Isolates and controls execution of STOLGV 

C STOLGV Calculates ground vortex lift increments while in STOL 

C flight 

C WKCALL Isolates and controls execution of STOLWK 

C JIEPIE Calculates change in lift caused by the jet induce 

C effects on a flat plate 

C STOLWK Calculates jet wake lift increments while in STOL flight 

C RCSCAL Isolates and controls execution of RCSIND 

C RCSIND Calculates RCS lift increments while in forward flight 

C PIEP Printing routine for PIE 

C JIETAB Creates output file which is used by ACSYNT 

C CENTAR Calculates the center of area, area and area in front of 

C a point for a given planform 

C CROSSIN Calculates the intersection of two lines, with each 

C line defined by two points 

C DIST (FUNC) Calculates the distance between two points 

C INTEGRA Calculates the areas of thin rectangles 

C LINECRO Calculates the intersection of two lines, each defined 

C by a slope and Y-intercept 

C LINTERP Linear interpolates between two X and Y values give an 
C intermediate X value 

C PERPDIS Calculates the perpendicular distance between a point 

C and a line 

C POLYAR Calculates the area of any polygon 

C RTOTAL Sums the total lift increment given array type indices 

C SSEN Calculates start, stop, end, and number variables which 

C have not been defined 

C ROUTINES CALLED: 

C NAME DESCRIPTION 


C INPIE Sets defaults for variables and reads user defined input 

C file 

C PLANMO Modifies planforms for consistecy and integrity 

C FINVAR Calculates all variables which have not been defined by 

C the user or set to a default value 

C HCALL Isolates and controls execution of HOV_GE 

C RCSCAL Isolates and controls execution of RCSIND 

C SFCALL Isolates and controls execution of STOLSF 

C WKCALL Isolates and controls execution of STOLWK 

C GVCALL Isolates and controls execution of STOLGV 

C PIEP Printing routine for PIE 

C NOTES: None. 

C REFERENCES: (Used throughout the PIE routines) 

C 1) Kuhn, R.E. "An Engineering Method of Estimating the Induced Lift 
C on V/STOL Aircraft Hovering In and Out of Ground Effect." V/STOL 

C Consultant. NADC-80246-60 . pp. January, 1981. 

C 2) Henderson, C., Clark, J., Walters, M. "V/STOL Aerodynamics and 

C Stability & Control Manual" Naval Air Development Center, 

C Pennsylvania, January 15, 1980. NADC-80017-60 . 

C 3) Stewart, V.R. and Kuhn, R.E. "A Method for Prediction of the 
C Aerodynamic Stability and Control Parameters of STOL Aircraft 

C Configurations." North American Aircraft Operations. Rockwell 

C International Corporation. AFWAL-TR-87-3019. Volume II & III. 

C June 1987. 

C ENVIRONMENT : 

C FORTRAN 77, VAX 6800, VAX 11/785, SGI IRIS 4D series. 

C NON-STANDARD CODE: 
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c “Seward Howard (KEH ) , ^ R ^ s S “ s “^ h °^^“o£fet Fiald C* 

c 

C REVISION HISTORY: 

C DATE INITIALS & DESCRIPTION 

' K S H h " g.cin, and fixed counts 

#include "figpie.inc" 

((include "pieflag. inc" 

# include "conpie . inc" 

# include "respie.inc" 

C 

INTEGER ICALC variable input subroutine, INPIE 

C When ICALC is set to 1 then can rne vaii™ - ^ 

C Set ICALC = 1 for testing purposes 

ICALC = 1 

C 

IF (ICALC .EQ. 1) THEN 
CALL INPIE 
END IF 

C Open necessary input, output, and scratch files 
C Table Output File 

OPEN (UNIT-68, STATUS-' UNKNOWN') 

q Forward velocity suckdown term 

OPEN (UNIT-70, FORM-’ FORMATTED ' , 

$ ACCESS= ' DIRECT ' , RECL=11 , STATUS= ' SCRATCH ) 

C Forward velocity fountain term 

OPEN (UNIT=71 , FORM= * FORMATTED ' , 

$ ACCESS =I DIRECT 1 , RECL=11, STATUS =1 SCRATCH ) 

C Ground vortex for the Body 

OPEN (UNIT=72, FORM= 1 FORMATTED 1 , 

$ ACCESS- ' DIRECT ' ,PECL-11, STATUS- • SCRATCH* ) 

C Ground vortex for the Wing 

OPEN (UNIT=73, FORM=* FORMATTED' , 

5 ACCESS—' DIRECT ' , RECL-11 , STATUS- * SCRATCH ' ) 

C Jet wake for the Body 

0°EN (UNIT-74, FORM-’ FORMATTED ' , 

$ ‘ ACCESS-’ DIRECT ',RECL=11, STATUS- 'SCRATCH') 

C Jet wake for the Wing 

OPEN (UNIT-75, FORM-’ FORMATTED ’ , 

$ ACCESS- ' DIRECT ' ,RECL=11, STATUS- 'SCRATCH ) 

C The meat of the Power Induced Effects module. 

C Set ICALC = 2 for testing purposes 
ICALC = 2 


C 

c 

c 


IF (ICALC .EQ. 2) THEN 

Make planform modifications 

CALL PLANMO . 

Finish calculating all initial variables 

CALL FINVAR 

Start do loops 
Altitude (Ft) 

DO H = 1, LH 
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HT (H) = HSTART + (H - 1) * HSTEP 
Lift loss in hover 
CALL HCALL 

Velocity (kts) 

DO V = 1, LV 

VO (V) = VSTART + (V - 1) * VSTEP 
IF (H .EQ. 1) CALL RCSCAL 
Jet Deflection Angle (Deg) 

DO D = 1, LD 

DFL(D) = D START + (D - 1) * DSTEP 
STOL Suckdown and Fountain Calcs. 
CALL SFCALL 
CALL WKCALL 


Angle of attack (Deg) 

DO A = 1, LA 

AOA(A) = ASTART + (A - 1) * ASTEP 
CALL GVC ALL 

MOCALL not implemented yet. 

CALL MOCALL 
END DO 


C 


END DO 


C 


END DO 


C 


END DO 


C Set H, D, v & A to its last value 
H = H - 1 
D = D - 1 
V = V - 1 
A = A - 1 

END IF . 

C Call PIE? subroutine to print out all variables. 
C Set ICALC = 3 for testing purposes 

ICALC = 3 
C 

IF (ICALC .EQ. 3) CALL PIEP 


Close 

all scratch files 

CLOSE 

(70) 

CLOSE 

(71) 

CLOSE 

(72) 

CLOSE 

(73) 

CLOSE 

(74) 

CLOSE 

(75) 


C 

END 


Inpie 

SUBROUTINE INPIE 

0 

C ACRONYM: INput routine for Powered Induced Effects. 

C — ~ 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


The purpose of INPIE is to input all the variables that the 
user hS placed in the input file with the extension .PIE. 


PURPOSE: The purpose or ^ ” T: : ha 

user has placed in the input file with the 

LOCAL VARIABLES (in addition to the ® rS 

NAME TYPE I/O UNITS DESCRIPTION 


I I 

HEADER C*8 

GLOBAL VARIABLES 


I 

(in addition 


Counter 

Flag which defines which planforms 
are contained within *.pie flie 
to the above parameters and local vars) : 


CONPIE Common Block 

NAME TYPE I/O UNITS 


DESCRIPTION 



— — — 

“ — 


AEND 

R 

I 

deg 

AS TART 

R 

I 

deg 

ASTEP 

R 

I 

deg 

DEND 

R 

I 

deg 

D START 

R 

I 

deg 

DSTEP 

R 

I 

deg 

HEND 

R 

I 

Ft 

H START 

R 

I 

Ft 

HSTEP 

R 

I 

Ft 

VEND 

R 

I 

kts 

VS TART 

R 

I 

kts 

VSTEP 

R 

I 

kts 


Ending value for angle of attack 
Starting value for angle of attack 
Step value for angle of attack 
Ending value for jet deflection 
angle 

Starting value for jet deflection 

angle . 

Step value for jet deflection angle 

Ending value for altitude 

Starting value for altitude 

Step value for altitude 

Ending value for aircraft velocity 

Starting value for aircraft 

velocity 

Step value for aricraft velocity 


FIGPIE Common Block 

NAME TYPE I/O UNITS 


DESCRIPTION 


c 


— 

— — — 


C 

B B 

R 

T 

Ft 

C 

B CS 

R 

I 

Ft 

C 

B JP 

R 

I 

Ft 

C 

B W 

R 

I 

Ft 

c 

B WB 

R 

I 

Ft 

c 

CONFIG 

C*18 

I 

— 

c 

D F 

R 

I 

Ft 

c 

D R 

R 

I 

Ft 

c 

D RCS 

R 

I 

Ft 

c 

DB B 

R 

I 

Ft 

c 

DB CS 

R 

I 

Ft 

c 

DB W 

R 

I 

Ft 

c 

DB KB 

R 

I 

Ft 

c 

DE F 

R 

I 

Ft 

c 

DE_FR 

R 

I 

Ft 

c 





c 

DE R 

R 

I 

Ft 

c 

DR 

R 

I 

— 

c 

E_1 

R 

I 

Ft 

c 





c 

E_3 

R 

I 

Ft 

c 





c 

E_4 

R 

I 

Ft 

c 





c 

F NAME 

C+50 

I 

— 


C 


Width of Body 
Width of Center Section 
Width of Jet Pattern 
Width of Wing (Wing span) 

Width of Wing-Body 

Short title of current config 

Diameter of each Front jet 

Diameter of each Rear jet 

Diameter of Roll RCS nozzle 

Dbar of Body 

Dbar of Center Section 

Dbar of Wing 

Dbar of Wing-Body 

Effective Diameter of Front jets 

Effective Diameter of Front & Rear 

jets combined 

Effective Diameter of Rear jets 
Density Ratio (Jet / Atm) 

Half distance between adjacent 
jets (1) 

Half distance between adjacent 
jets (3) 

Half distance between adjacent 
jets (4) 

Name of file which contains body & 
wing planform coordinates 
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C KB 
C KLF 
C 

c 

c KR 
C L_B 
C L_CS 
C L_F 
C L_R 
C L_WB 
C MAC 
C MD_RCS 
C N_BODY 
C 

c N_WING 
C 

c N_WB 
C 

c NDIV 
C 

c 

C NUM 
C NUM_F 
C NUM_R 
C PER_FR 
C PP__LID 
C 

c PR_F 
C PR_FR 
C PR_R 
C PR_RCS 
C PT_RCS 
C Q_F 
C Q_FR 
C 

C Q_R 
C Q_RCS 
C R_B 
C S_B 
C S_CS 
C S_F 
C S_FAl 
C S_FA3 
C £_FA4 
C S_FR 
C S_JP 
C S_LID 
C S_R 
C S_W 
C S_KB 
C SCALE 
C 

c 

c 

c 

c 

c 

c SCALE 3 


R I 

R I 


R I 

R I Ft 

R I Ft 

R I Ft 

R I Ft 

R I Ft 

R I Ft 

r I lbm/s 

I I 

I I 

I I 


I I Ft 

I I 

I I 

R I Ft 

R I 

R I 

R I 

R I 

R I 

R I lb/ sq ft 

r I lb/ sq ft 

r I lb/ sq ft 

r I lb/sq ft 

r I lb/sq ft 

R I Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I Sq Ft 

R I 


R I 


Boundary layer factor 

Adjustment factor for flap 

extension when calculating the lift 

loss due to jet induced effects. 

Body contour factor 

Length of body 

Length of Center Section 

Length of Front jet 

Length of Rear jet 

Length of Wing-Body 

Mean Aerodynamic Chord of wing 

Mass flow rate for one RCS nozzle 

Number of data points for Body 

planform 

Number of data points for King 
planform uHnn-Rndv 


NMbeHf divisions to be used when 
calculating suckdown areas (SDAREA) 
and Dbars (DIABAR) 

Total NUMber of jets 

NUMber of Front jets 

NUMber of Rear jets 

Total perimeter of jets 

Ratio of perimeter enclosed by lids 

to total perimeterC 

jet Pressure Ratio for front jets 

jet Pressure Ratio for all jets 

jet Pressure Ratio for rear jets 

Roll RCS Pressure Ratio 

Total pressure for one roll RCS jet. 

Dynamic pressure for the front jets 

Dynamic pressure for Front and Rear 

jets . . „ 

Dynamic pressure for the rear jets 
Dynamic pressure for roll RCS jets 
rnmer radius of body sides. 


Area of Body 

Area of Center Section 


Area of Front jets 

Area affected by fountain arm (1) 

Area affected by fountain arm (3) 

Area affected by fountain arm (4) 

Total jet exit area 

Area enclosed by Jet Pattern 

Area enclosed by LIDS 

Area of Rear jets 

Area of Wing 

Area of Wing-Body 

Actual scale factor which adjusts 
area of fountain arm (3) to account 
for the fact that curvature of 
aircraft's nose tends not to hold 
fountain arm very well causing area 
that fountain arm affects to be 
scaled down. 

Fountain arm (3) scaler (Percentage 



c 

c 

c 

c 

c SF_FB R I Sq Ft 

C 

c SF_FW R I Sq Ft 

C 

c SF_FWB R I Sq Ft 

C 

c SF_RB R I Sq Ft 

C 

C SF_RW R I Sq Ft 

C 

C SF_RWB R I Sq Ft 

C 

C SP_FA1 R I Sq Ft 

C 

C SP_FA3 R I Sq Ft 

C 

C SP_FA4 R I Sq Ft 

C 

C SP_JP R I Sq Ft 

C 

C SPLY_F R I Ft 

C SPLY_R R I Ft 

C T_F R I lb 

C T~FR R I lb 

C T_R R I lb 

C T_RCS R I lb 

C THA_1 R I deg 

C THA_3 R I deg 

C THA_4 R I deg 

C TP_RCS R I Rankine 

C 

C TT_F R I 

C TT_R R I 

C W_F R I Ft 

C W_R R I Ft 

C ' ' WIWE R I 

C 

C WL_B R I 

C WL_CS R I 

C 

C WL_F R I 

C WL_JP R I 

C 

C WL_R R I 

C WL_WB R I 

C X_BODY (500) R I Ft 

C X_FR R I Ft 

C X_RCS R I Ft 

C 

C X_WB (500) R I Ft 

C X_WING (500) R I Ft 

C XCA_CG R I Ft 

C 

C X CA R 
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measured from the front jets to the 
nose of the aircraft.) Tries to 
approximate SCALE but does not do a 
great job (better than nothing.) 

Area ahead of Front jets using body 
planform 

Area ahead of Front jets using wing 
planform 

Area ahead of Front jets using the 
wingbody planform 
Area ahead of Rear jets using the 
body planform 

Area ahead of Rear jets using the 
wing planform 

Area ahead of Rear jets using the 
wingbody planform 

Potential area affected by fountain 
arm (1) 

Potential area affected by fountain 
arm (3) 

Potential area affected by fountain 
arm (4) 

Actual surface area within area 
enclosed by nozzles 
SPLaY angle of Front jet 
SPLaY angle of Rear jet 
Thrust of Front jets 
Total thrust in all jets 
Thrust of Rear jets 
Thrust of roll RCS nozzle 
Half angle between jets (1) 

Half angle between jets (3) 

Half angle between jets (4) 
Temperature of flow in roll RCS 
nozzle 

Front Thrust / total Thrust 
Rear Thrust / total Thrust 
Width of Front jet 
Width of Rear jets 

Flow Weight of Inlet / Flow Weight 
of Exit 

Width to Length ratio of Body 
Width to Length ratio of Center 
Section 

Width to Length ratio of Front jets 
Width to Lenght ratio of Jet 
Pattern 

Width to Length ratio of Rear jets 
Width to Length ratio of Wing-Body 
X-coordinates of Body planform 
Distance between Front & Rear jets 
Distance of roll RCS nozzle ahead 
of wing trailing edge 
X-coordinates of Wing-Body planform 
X-coordinates of Wing planform 
Distance of center of area ahead of 
CG 

X-coordinate of Center of Area 


I Ft 
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c 

X CG 

R 

I 

Ft 

c 

XCG_C2 

R 

I 

Ft 

c 

XCG C4 

R 

I 

Ft 

c 

XCG F 

R 

I 

Ft 

c 

XCG_I 

R 

I 

Ft 

c 





c 

XCG R 

R 

I 

Ft 

c 

XNOZ_F 

R 

I 

Ft 

c 

XNOZ R 

R 

I 

Ft 

c 

XTE_F 

R 

I 

Ft 

c 





c 





c 

XTE_R 

R 

I 

Ft 

c 





c 





c 

Y_1 

R 

I 

Ft 

c 





c 

Y_3 

R 

I 

Ft 

c 





c 

Y_4 

R 

I 

Ft 

c 





c 

Y BODY (500) R 

I 

Ft 

c 

Y F 

R 

I 

Ft 

c 

YNOZ F 

R 

I 

Ft 

c 

YNOZ R 

R 

I 

Ft 

c 

Y R 

R 

I 

Ft 

c 

Y_RCS 

R 

I 

Ft 

c 





c 

Y WB (500) 

R 

I 

Ft 

c 

Y WING (500) R 

I 

Ft 

c 

YB_F 

R 

I 

Ft 

c 





c 

YB_R 

R 

I 

Ft 

c 





c 

YP 1 

R 

I 

Ft 

c 

YP 3 

R 

I 

Ft 

c 

YP 4 

R 

I 

Ft 

c 

YWB_F 

R 

I 

Ft 

c 





c 

YWB_R 

R 

I 

Ft 

c 





c 

Z B 

R 

I 

Ft 

c 

ZCG I 

R 

I 

Ft 

c 

Z W 

R 

I 

Ft 




C PIEFLAG Common Block 
C NAME TYPE I/O UNITS 

C — 

c HDEOUT L I 

C 

c 

c 

C VEOUT L I 

c 

c 

c 

C WBFLAG L 0 

C 


X-coordinate of Center of Gravity 
Distance from CG to MAC/2 
Distance from CG to MAC/ 4 
Distance Front jet is ahead of CG 
Inlet longitudinal distance ahead 
of CG 

Distance Rear jet is ahead of CG 
X-coordinates of Front NOZzle 
X-coordinates of Rear NOZzle 
X-coordinate of trailing edge 
for front nozzle (root TE if 
Nozzle within body) 

X-coordinate of trailing edge 
for rear nozzle (root TE if 
Nozzle within body) 

Spanwise extent of planform on 
fountain arm (1) center line. 
Spanwise extent of planform on 
fountain arm (3) center line. 
Spanwise extent of planform on 
fountain arm (4) center line. 
Y-coordinates of Body planform 
Distance between Front jets 
Y-coordinates of Front NOZzle 
Y-coordinates of R NOZzle 
Distance between Rear jets 
Distance of roll RCS nozzle in from 
wingtip 

Y-coordinates of Wing-Body planform 
Y-coordinates of wing planform 
Lateral distance from Body to Front 
jets (for external jets) 

Lateral distance from Body to Rear 
jets (for external jets) 

Max spanwise extent of planform (1) 
Max spanwise extent of planform (3) 
Max spanwise extent of planform (4) 
Lateral distance from Wingbody to 
Front jets (for external jets) 
Lateral distance from wingbody to 
Rear jets (for external jets) 

Height of body base above nozzle 
Inlet vertical distance above CG 
height of wing above nozzle 


DESCRIPTION 

Signals when to output tables based 
on height or height /De 
(TRUE - Print based on Height /DE, 
FALSE - Print based on height) 
Signals when to output tables based 
on VE 

TRUE - Print Based on VE 
FALSE - Print Based on Velocity 
Identifies when WingBody planform 
has been enter by the user. Used 



o o o o 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


to determine when to use the 
wingbody incalculations. 


RESPIE Common Block 


NAME 


LA 


LD 


LH R 

LV R 

flag variables 
name type 


TYPE I/O UNITS DESCRIPTION 

R j Total number of Angle of Attack v 

values 

R j Total number of nozzle deflection 

angles values. 

-r Total number of height values. 

j Total number of velocity values. 

(in addition to the above parameters and local vars) : 


DESCRIPTION 


FILES USED: 

LOGICAL UNIT I/O DESCRIPTION 


10 

COMMONS USED: 
NAME 


CONPIE 


FIGPIE 


PIEFLAGS 


RESPIE 


CALLED BY: 

NAME 

COPPIE 
ROUTINES CALLED: 


NAME 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 


I Data file containing planform coordinates of body 
& wing separately or wingbody coordinates only. 

I Data file containing namelist PIENAM variables. 

DESCRIPTION 

CONtrol variables for Power Induced Eff ® c ^ p ' P TE n module 
variables which control the execution of the PIE module. 

conFIGuration for Power Induced Effects “ c ° n J“ n * til 
variables needed to define the configuration and other 
parameters of the aircraft. . . - 

Power induced Effects FLAGS - Contains variables which 
help keep track of the configuration of the aircraft. 
RESults from all POwer Induced Effects subroutines 
Contains results from each subroutine along with 
variables for height, velocity, jet defelction angle, 
and angle of attack and their counters. 

DESCRIPTION 

Controls execution and coordination of PIE 


DESCRIPTION 


(none) 

NOTES : None . 

REFERENCES : 

1) None. 

ENVIRONMENT: „ 

FORTRAN 77, VAX 6800, VAX 11/785, SGI IRIS 4D senes. 

NON-STANDARD CODE: 

? 

^Kipp^. Howard (KEH) , Cal Poly San Luis Obispo, NASA Ames Moffett 

REVISION HISTORY: 

DATE INITIALS & DESCRIPTION 

04 / 03/90 KEH — Initial coding complete. 

07 / 13/91 KEH — Eliminated extraneous spacing and fixed comments 
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# include "conpie . inc" 
iinclude "t igpie. inc" 
finclude "pief lag. inc" 

# include "respie.inc" 

C 

0 Variable Declarations 
CHARACTER HEADER* 8 


S_F , SF_FB , 
F, XCG_F , 


XNOZ F, 


c Define namelist PIENAME s B, WL B, Z B, 

NAMELIST/PIENAM/B_B, DB_B, KR, L_B, ' - — — 

B W, DB W, MAC, S_W, Z_W, 
n"~WB DB WB, L WB, S WB, WL WB, 

ppIlid, s_ip, sj . lt ,. sp ip. "L_.JP, 

B CS, DB_CS, L_CS, S_CS, WL_CS, 

D F, DE F, L_F, NUM_F, PR_F, Q F * 

SF FWB, SPLY_F, T_F, TT_F, W_F, WL_ 

Y F, YB F, YNOZ_F, XTE_F, ^WB_ F ' c r q F RR 

piK: **-«■ 

h R FR, B m ™er!?r, X Q Jr, s - f ^/ y FR config' 

DR, KLF, PR FR, WIWE, XCG_I, ZCG I, CONFIG, 

D RCS, MD_RCS, PR_RCS, PT_RCS,T_RCS, 

**-«• 

K5E' sW J^SP.EAl SP ™ SP_FA4 S^ 3 . SCAIE. 
E _ l, e_ 3, E_4, THA_1, THA_3, THA_4, Y_l, Y_3, Y_ , 

SrMT^ife^VsiEP, LH. VSTART, VEND, VSTEP, EV. 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


HSTART# HEND, HbJ.fct', -un, - • ovtp 

nSwT DEOT.: DSTEP, ED, ASTART, AEND, ASTEP, LA, SKIP 


c 

c 

c 

c 


Initialization of all variables: 

Variable that has been set to 9999. is 
calculated if the user does not set it 
AEND = 9999. 

ASTART = 9999. 

ASTEP = 9999. 

B_B = 9999. 

B CS = 9999. 
v~: tp = 9999. 


B_W = 9999. 

B WB = 9999. 

CONFIG = ’?????????????????? 
D_F = 9999. 

D_R = 9999. 

D_RCS = 9999. 

DB B = 9999. 


DB_CS = 9999. 
DB_W = 9999. 
DB_WB = 9999. 
DE_F = 9999. 
DE_FR = 9999. 
DE_R = 9999. 
DR = 1.0 


DEND = 9999. 

D START = 9999. 
DSTEP = 9999. 


a variable which will be 
through the input file. 



El = 9999. 

E_3 = 9999. 

E_4 = 9999. 

F_NAME = 'test. pie' 
HDEOUT = .TRUE. 

HEND = 9999. 

H START = 9999. 

HSTEP = 9999. 

KB = . 666667 
KLF =1.0 
KR = 9999. 

L_B = 9999. 

L_CS = 9999. 

L_F = 9999. 

L_R = 9999. 

L_WB = 9999. 

LH = 9999 
LV = 9999 
LD = 9999 
LA = 9999 
MAC =0.0 
MD_RCS =0.0 
NDIV = 500 
NUM = 9999 
NUM_F = 9999 
NUM_R = 9999 
PER_FR = 9999. 
PP_LID = 9999. 

PR_F = 9999. 

PR_FR = 9999. 

PR_R = 9999. 

PR_RCS =0.0 
PRTFLG = .TRUE. 
PT_RCS = 9999. 

Q_F = 9999. 

Q_R = 9999. 

Q_FR = 9999. 

Q_RCS = 9999. 

R_B = 9999. 

S_B = 9999. 

S_CS = 9999. 

S_JP = 9999. 

S_F = 9999. 

S_FA1 = 9999. 

S_FA3 = 9999. 

S_FA4 = 9999. 

S_FR = 9999. 

S_LID =0.0 
S_R = 9999. 

S_W = 9999. 

S_WB = 9999. 

SCALE = 9999. 
SCALE3 =1.0 
SF_FB = 9999. 
SF_FWB = 9999. 
SF_RB = 9999. 
SF_RWB = 9999. 

SKIP = .FALSE. 



SP JP = 9999. 
SP_FA1 = 9999. 
SP_FA3 = 9999. 
SP_FA4 = 9999. 
SPLY_F =0.0 
SPLY_R =0.0 
T_F = 9999. 

T_FR = 9999. 

T_R = 9999. 

T_RCS =0.0 
THA_1 = 9999. 
THA_3 = 9999. 
THA_4 = 9999. 
TP_RCS =0.0 
TT_F = 9999. 

TT~R = 9999. 

VEND = 9999. 
VEOUT = .FALSE. 
VS TART = 9999. 
VSTEP = 9999. 

W_F = 9999. 

W_R = 9999. 
WBFLAG = . FALSE . 
WIWE =0.0 
WL_B = 9999. 
WL_CS = 9999. 
WL_JP = 9999. 
WL_F = 9999. 
WL_R = 9999. 
WLJHB = 9999. 
X_FR = 9999. 
X_RCS = 9999. 
XCA_CG = 9999. 
X_CG =0.0 
X_CA = 9999. 
XCG_C2 = 9999. 
XCG_C4 =0.0 
XCG_F = 9999. 
XCG_I =0.0 
XCG_R = 9999. 
XNOZ_F =0.0 
XNOZ_R = 9999. 
XTE_F = 9999. 
XTE_R = 9999. 
Y_1 = 9999. 

Y_3 = 9999. 

Y_4 = 9999. 

YP_1 = 9999. 
YP_3 = 9999. 
YP_4 = 9999. 
YNOZ_F =0.0 
YNOZ_R = 9999. 

Y F = 9999. 

Y~R = 9999. 
Y_RCS = 9999. 
YB_F = 9999. 
YB~R = 9999. 
YWB F = 9999. 
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YWB_R = 9999. 

Z_B =0.0 
ZCG_I =0.0 
Z_W =0.0 

c Read user entered data in PIENAM Name list 
READ ( 9 , NML=PIENAM) 

C Read in planform coordinates from F_NAME. 

C when it comes to naming files. 

OPEMUNIT^lO, FILE = F_NAME, TYPE = '° LD,) 
C Set up loop to read planform coordinates 

C Read 1 header for planform coordinates. 

READ (10, 7,END=50) HEADER 
7 FORMAT ( A8 ) 


Iris is case sensitive 


C 

10 

C 


C 

20 

C 


C 

30 

C 


40 

C 

c 

c 

c 

50 

C 


IF 


(HEADER .EQ. 1 BOD YP LAN 1 ) THEN 
WBFLAG = .FALSE. 

Read body coordinates 
READ (10,*) X_BODY(I), Y 


SSS X.BODY, go to next pXanfom. 

IF (X BODY (I) .EQ. 9999.) GO TO 40 
Keep track of the number of body points 
N_BODY = I 
Increment counter 
1 = 1 + 1 
GO TO 10 

ELSE IF (HEADER .EQ. 'WINGPLAN') THEN 
WBFLAG = .FALSE. 

Read wing coordinates 

““ ieaoMnrSf £g ^.‘"or X_WI»G, go to neat planfom. 
IF (X WING (I) .EQ. 9999.) GO TO 40 
Keep track of the number of wing points 
N_W*ING = I 
Increment counter 
1 = 1 + 1 
GO TO 20 

ELSE IF (HEADER .EQ. ' WINGBODY ' ) THEN 
WBFLAG = .TRUE. 

Read wingbody coordinates 

SS ^aoMng-^fiag-^^g.l for X_«B, go to next planfom. 

IF (X WB (I ) .EQ. 9999.) GO TO 40 

Keep track of the number of wingbody points 

N WB = I 

counter 


Increment 
1 = 1 + 1 
GO TO 30 
IF 


END 


GO TO 5 

Assign the correct value to WBFLAG. 
wingbody is entered alone. 

CONTINUE 


WBFLAG is true if only the 
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return 

END 


Planmo 


SUBROUTINE PLANMO 




C ACRONYM: PLANform Modifications. 

c PURPOSE: The f *? a Sorm coordinates that have the 

r sameX-coordinate . (This is because the slope of a 

C line between two points with the same X-coordinate is 

r 2) Combine^ the individual body and wing planforms into 

p one planform for the wingbody. . ^ 

r 3) Move the most forward part of the body planform 

p (generally the nose) to the origin of the coordinate 

q system and move the wing planform likewise. 

C LOCAL VARIABLES: _ ttvptam 

C NAME TYPE I/O UNITS DESCRIPTION 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BP (20 ) I 

CROSS (20) I 
DELTAX R 



WP (20) 

I 



XCR (20 ) 

R 

- 

— 

XCROSS 

R 


Ft 

YCR (20 ) 

R 

- 

— 

YCROSS 

R 


Ft 

XMAX 

R 


Ft 

XMIN 

R 


Ft 


GLOBAL VARIABLES (in addition to 
FIGPIE Common Block 


Body point counter which keep track 
of which body point a crossing has 
has taken place before. 

Flag which identifies when a 
crossing point has been reached. 
Amount to add to a point that has 
the same X-coordinate as the 
previous point. (= .1% of the total 
length of the configuration) 

Counter for body 
Counter for wing 
Counter for wingbody 
Counter for center section 
Crossing counter 

Flag which signifies when to use 
the wing planform when creating 
the wingbody planform. 

1 - use wing planform 
-1 - use body planform 
Wing point counter which keep track 
of which wing point a crossing has 
has taken place before. 

X-coordinate at which M crossing 
occurs 

The X-coordinate of the inter- 
sectionof two lines defined by two 
body points and two wing points 
Y-coordinate at which M crossing 
occurs 

See XCROSS (Y-coordinate) 

Most aft point of configuration 
Most forward point of the 
configuration. 

the above parameters and local vars) . 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME type I/O UNITS 

NOBODY I I 

N_CS I 0 

NJWING I I 

N_WB I 1 

X_BODY (500) R I Ft 

X_CS (30 ) R O Ft 

X_RCS R I Ft 

X_WB (500) R I Ft 

X WING (500 ) R I Ft 

X_CA R I Ft 

X_CG R I Ft 

XNOZ_F R I Ft 

XNOZ_R R I Ft 

XTE F R I Ft 


XTE R R I Ft 


Y CS ( 30 ) R 0 Ft 


PIEFLAG Common Block 

NAME TYPE I/O UNITS 

WBFLAG L O 


FILES USED: 

LOGICAL UNIT I/O DESCRIPTION 


DESCRIPTION 


Number of data points for Body 
planform 

Number of data points for Center 

Section planform 

Number of data points for Wing 

planform 

Number of data points for Wing-Body 
planform 

X-coordinates of Body planform 
X-coordinates of Center Section 
planform 

Distance of roll RCS nozzle ahead 
of wing trailing edge 
X-coordinates of Wing-Body planform 
X-coordinates of Wing planform 
X-coordinate of Center of Area 
X-coordinate of Center of Gravity 
X-coordinates of Front NOZzle 
X-coordinates of Rear NOZzle 
X-coordinate of trailing edge 
for front nozzle (root TE if 
Nozzle within body) 

X-coordinate of trailing edge 
for rear nozzle (root TE if 
Nozzle within body) 

Y-coordinates of Center Section 


DESCRIPTION 


Identifies when WingBody planform 
has been enter by the user. Used 
to determine when to use the 
wingbody in calculations. 


(none) 

COMMONS USED: 

NAME DESCRIPTION 

conFIGuration for Power Induced Effects - Contains all 
variables needed to define the configuration and other 
parameters of the aircraft. 

Power Induced Effects FLAGS - Contains variables which 
help keep track of the configuration of the aircraft. 

DESCRIPTION 


COPPIE Controls execution and coordination of PIE 

ROUTINES CALLED: 

NAME DESCRIPTION 


Calculates the intersection of two lines defined by four 
points. Line one is defined with (XI, Yl) i (X2,Y2). 


FIGPIE 

PIEFLAGS 

CALLED BY: 
NAME 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


& (X4,Y4) 


VAX 11/785, SGI IRIS 4D series. 


Line two is defined with <X3,Y3) 

NOTES: None. 

REFERENCES: 

1 ) None . 

ENVIRONMENT: 

FORTRAN 77, VAX 6800, 

NON-STANDARD CODE: 

™Sp <S e. ; H oward (KEH) . Cal Poly San Lois Obispo. NASA **es Moffett 

HIS Srri«.s s description 

£ H h ~ B^gtg^gr gul spacing and fixed 

#include "figpie.inc" 
finclude "pieflag. inc" 

C 

C Variable decalarations 

REAL CROSS (20), XCR (20), YCR(20) 

INTEGER W_FLAG, BP (20), WP(20), I, J, Kf ' 


adjust two planform coordinates if trey “ ve ,™ 0 !™ e x - CCORDI1 ® TE 

Find the maximum and minimum points on the planform 
Sse the wingbody planform if WBFLAG has been set 
IF (WEFLAG) THEN 


C 

c 


c 

c 

c 

c 

c 


DO I = If NJWB 

Initialize XMAX 


and XMIN to the first points of planform. 


C 

c 


c 

c 

c 

c 

c 


IF (I .EQ. 1) THEN 
XMIN = X_WB ( I ) 

XMAX = X_WB(I) 

END IF 

^^r^nSrs^rtrjif i£ the “ in9body 

planform coordinate is greater than XMAX. 

IF (X WB(I) .GT. XMAX) XMAX - X_WB (I) 

END DO 

Else use body planform 
ELSE 

D ° I ni t iali"ze°XMAX and XMIN to the first points of planform. 

IF (I .EQ. 1) THEN 
XMIN = X_BODY (I) 

XMAX = X_BODY (I ) 

END IF 

Assign body planfom coordinate to XMIN if the body 

?fT^DV ar^^N^SlN^X^Y (I, 

•ss& tody^lanfo™ coordinate to Mj* i* the body 
Planform coordinate is greater than XMAX. 

IF (X_BODY (I ) .GT. XMAX) XMAX = X_BODY(I) 

END DO 



END IF 
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C Calculate a relative delta X to adjust the given points 

DELTAX = .001 * (XMAX - XMIN) 

C Use the wingbody planform if WBFLAG is set 

C 

IF (WBFLAG) THEN 

c D ° Adjust the^urrent point if the previous point has the 

C same X-coordinate. 

IF (X WB(I-l) -EQ. X_WB ( I ) ) 

X WB(I) = X_WB (I ) + DELTAX 

30 CONTINUE - 

C Else use body and wing planform 

ELSE 

C Body adjustment 

DO 40 I = 2, N BODY . . . 

C Adjust the current point if the previous point has the 

C same X-coordinate. 

IF (X BODY (1-1 ) -EQ. X_BODY(I)) 

$ X BODY (I) = X_BODY (I ) + DELTAX 

40 CONTINUE ~ 

C Wing adjustment 

DO 50 I = 2, N_WING 
C same X-coordinate . 

IF (X WING(I-l) -EQ. X_WING ( I ) ) 

5 X~ WING (i ) = X_WING ( I ) + DELTAX 

50 CONTINUE 

END IF 

C COMBINE BODY AND WING INTO WINGBODY PLANFORM AND FIND THE 
C CENTER SCETION PLANFORM. 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


IF (.NOT. WBFLAG) THEN 
Initialize counters 
Wingbody counter 
K = 2 

Crossing counter 

Determine where the wing planform intersects the body planform 
and store those points in an array 
Step through the body planform 
DO I = 2, N_BODY 

Step through the wing planform 

DO J = 2, N WING . . 

Check to see if any of the points on the body and wing 

coincide . 

IF (X BODY (I) .NE. X_WING(J) .AND. 

; X _ BODY (1-1) ,NE .X_WING ( J-l ) ) THEN , 

Find intersection of line defined by wing points an^ 
line defined by body points. 

CALL CROSSIN (X_BODY (1-1) , Y_BODY (1-1) , 

5 X_BOD Y ( I ) , Y_BODY (I) , 

e X_WING ( J-l ) , Y_WING ( J-l ) , 

$ X_WING ( J) , Y_WING ( J) , 

e X CROSS, YCROSS ) 


ELSE 



</></></> <r> <f> <n <r> <rt 
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c 

c 


XCROSS = X_BODY (I) 

YCROSS = Y_BODY(I) 

END IF 

Check to see if lines cross 
IF (((XCROSS . GT . X_BODY ( I -1 ) 

. OR . (XCROSS . LT . X_BODY ( I -1 ) 

. AND . ( (XCROSS . GT . X_WING ( J-l ) 
.OR. (XCROSS .LT.X_WING ( J-l) 
THEN 

Check to see if one of the 
same point as a body or 
IF (XCROSS .EQ. X_BODY ( I ) 
XCROSS .EQ. X_WING (I ) ) 
CROSS (M) = 1 
ELSE 

CROSS (M) = -1 
END IF 


. AND . XCROSS . LE . X_BODY (I) ) 
.AND. XCROSS. GE.X_BODY (I) ) ) 

. AND . XCROSS . LE . X_WING ( J) ) 

. AND . XCROSS . GE . X_WING ( J) ) ) ) 

crossing points is at the 
wing point. 

.OR. 

THEN 


BP (M) = I 
WP(M) = J 
XCR(M) = XCROSS 
YCR(M) = YCROSS 
M = M + 1 
END IF 


END DO 
END DO 

Set end condition for wing and body planform 
BP (M) = 0 
WP(M) =0 

Initialize Body counter 
1 = 2 

Initialize Wing counter 
J = 2 

Initialize Wingbody counter 
K = 2 

Initialize Center section counter 
M = 1 

Calculate wingbody planform 
Determine which planform to start with. 

IF (X_BODY (1) .EQ. 0.0) THEN 
The body planform 
X_WB ( 1 ) = X_BODY ( 1 ) 

W_FLAG = -1 
ELSE 

The wing planform 
X_WB ( 1 ) = X_WING(1) 

W_FLAG = 1 
END IF 

Termination condition - occurs when the wingbody point equals 
the last point of either the body or wing. 

IF ( (X_WB (K-l ) .EQ. X_BODY(N_BODY) .AND. 

Y_WB (K-l ) .EQ. Y_BODY (N_BODY) ) .OR. 

(X_WB (K-l ) .EQ. X_WING(N_WING) .AND. 

Y WB(K-l) .EQ. Y WING (N WING))) GO TO 80 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IF (W FLAG .EQ. -1) THEN 

Use the body points for the wmgbody planform 

IF (I .LT. BP (M) .OR. BP (M) .EQ. 0) THEN 
X_WB (K) = X_BODY(I) 

Y_WB (K) = Y_BODY (I) 

Increment body counter 
1 = 1 + 1 

Increment wingbody counter 
K = K + 1 

Run through tests again 

A crossing^point has been reached so use it in the wingbody 
planform. 

ELSE IF (I .EQ. BP (M) ) THEN 
X_WB (K) = XCR(M) 

Y_WB (K) = YCR(M) 

Increment wingbody counter 
K = K + 1 

Determine counter for wing 
IF (CROSS (M) .EQ. 1) THEN 
J = WP (M) + 1 

ELSE IF (CROSS (M) .EQ. -1) THEN 
J = WP (M) 

END IF 

Caculate W_FLAG 
W_FLAG = W_FLAG * -1 
Increment crossing counter 
M = M + 1 

Run through tests again 
GO TO 70 
END IF 

ELSE IF (W_FLAG .EQ. 1) THEN 

Use the wing points for the wingbody planform 
IF (J .LT. WP (M) .OR. WP (M) .EQ. 0) THEN 
X_WB (K) = X_WING ( J) 

Y_WB(K) = Y_WING ( J) 

Increment wing counter 
J = J + 1 

Increment wingbody counter 
K = K + 1 

Run through tests again 

GO TO 70 , , 

A crossing point has been reached so use it m the wingbody 

planform. 

ELSE IF (J .EQ. WP (M) ) THEN 
X_WB (K) = XCR(M) 

Y_WB (K) = YCR(M) 

Increment wingbody counter 
K = K + 1 


C 

C 


Determine counter for body 
IF (CROSS (M) .EQ. 1) THEN 



</></></> 
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c 

c 

c 

c 


c 

c 

c 

80 

c 

c 


c 

c 

c 


c 


c 

c 

c 

90 


c 

c 

c 


c 

c 

c 

c 

c 


I = BP (M) +1 

ELSE IF (CROSS (M) .EQ. -1) THEN 
I = BP (M) 

END IF 

Caculate W_FLAG 
W FLAG = W_FLAG * -1 
Increment crossing counter 
M = M + 1 

Run through tests again 
GO TO 70 
END IF 

END IF 

Finish wingbody calculations 
N_WB = K - 1 

Calculate center section planform 
Initialize counters 
1 = 2 
J = 2 
L = 2 
K = 2 
M = 1 

Determine which planform to start with. 

IF (X_BODY ( 1 ) .GT. X_WING(1)) THEN 
Body planform 
X_CS(1) = X_B0DY(1) 

W_FLAG = -1 
ELSE 

Wing planform 
X_CS(1) = XJWING(l) 

W_FLAG = 1 
END IF 

Termination condition - occurs when the center section point 
equals the last point of either the body or wing. 

IF ((X CS (L— 1) .EQ. X_BODY (N_B0DY) .AND. 

Y _ CS (L-l ) .EQ. Y_BODY (N_BODY) ) .OR. 

(X~ CS(L-l) .EQ. XJWING (NJWING) .AND. 
y — CS(L-l) .EQ. Y_WING (N_WING) ) ) GO TO 100 

IF (W FLAG .EQ. -1) THEN 

Use the body points for the center section planform 

IF (I .LT. BP (M) .OR. BP (M) .EQ. 0) THEN 
X_CS(L) = X_BODY (I) 

Y_CS (L) = Y_BODY ( I ) 

Increment body counter 
1 = 1 + 1 

Increment center section counter 
L = L + 1 

Run through tests again 

GO TO 90 . , . 

A crossing point has been reached so use it in the wingbody 

planform. 

ELSE IF (I .EQ. BP (M) ) THEN 
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c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


X_CS (L) = XCR(M) 

Y CS (L) = YCR(M) 

Increment center section counter 
L = L + 1 

Determine counter for wing 

IF (CROSS (M) .EQ. 1) THEN 
J = WP(M) +1 

ELSE IF (CROSS (M) .EQ. -1) THEN 
J = WP(M) 

END IF 

Caculate w_FLAG 
W_FLAG = W_FLAG * -1 
Increment crossing counter 
M = M + 1 

Run through tests again 
GO TO 90 
END IF 

ELSE IF (W_FLAG .EQ. 1) THEN 

Use the wing points for the center section planform. 

IF (J .LT. WP (M) .OR. WP (M) .EQ. 0) THEN 
X_CS (L) = X_WING(J) 

Y_CS (L) = Y_WING ( J) 

Increment wing counter 
J = J + 1 

Increment center section counter 
L = L + 1 

Run through tests again 

GO TO 90 . , , 

A crossing point has been reached so use it in the wingbody 

planform. 

ELSE IF (J .EQ. WP (M) ) THEN 
X_CS(L) = XCR(M) 

Y_CS(L) = YCR(M) 

Increment center section counter 
L = L + 1 

Determine counter for body 

IF (CROSS (M) .EQ. 1) THEN 
I = BP (M) +1 

ELSE IF (CROSS (M) .EQ. -1) THEN 
I = BP (M) 

END IF 

Caculate w_FLAG 
W_FLAG = W_FLAG * -1 
Increment crossing counter 
M = M + 1 

Run through tests again 
GO TO 90 
END IF 

END IF 

Finish calculations for the center section planform. 
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100 N_CS = L - 1 

END IF 

ADJUST PLANFORMS AND ANY OTHER VARIABLES THAT ARE BASED ON THIS 
COORDINATE SYSTEM SO THAT THE NOSE OF THE AIRCRAFT IS LOCATED AT THE 
ORIGIN. 

IF (XMIN .NE. 0.0) THEN 
Move body planform 
DO I = 1, N_BODY 

X_BODY (I ) = X_BODY (I ) - XMIN 
END DO 

Move wing planform 
DO I = 1, N_WING 

X_WING(I) = XJWING(I) - XMIN 
END DO 

Move wingbody planform 
DO 1= 1, N_WB 

X_WB ( I ) = X_WB(I) - XMIN 

END DO 

Move center section planform 
DO I = 1, N_CS 

X_CS(I) = X_CS(I) - XMIN 
END DO 
Move nozzles 
Front 

XNOZ_F = XNOZ_F - XMIN 
C Rear 

IF (YNOZ_R .NE. 9999.) XNOZ_R = XNOZ_R - XMIN 
C Move Center of Area and Center of Gravity 


X_CG = X_CG - XMIN 

IF (X_CA .NE. 9999.) X_CA = X_CA - XMIN 
C Move Trailing edge placement 



IF 

(XTE F .NE. 

9999. ) 

XTE F = XTE_F 

- XMIN 


IF 

(XTE R .NE. 

9999. ) 

XTE R = XTE_R 

- XMIN 

c 

Move RCS nozzle placement 



IF 

(X_RCS .NE. 

9999. ) 

X_RCS = X_RCS 

- XMIN 


END IF 
C 


RETURN 

END 


Finvar 


SUBROUTINE FINVAR 


C ACRONYM: FINish VARiable calculations 

C — 

C PURPOSE: The purpose of FINVAR is to make all calculations necessary 

C to variables that the user has not declared through the 

C PIENAM namelist. An undeclared variable is one that has the 

C value of 9999. 

C LOCAL VARIABLES (in addition to the above parameters) : 

C NAME TYPE I/O UNITS DESCRIPTION 


C A_RCS 
C DAEND 
C 


R 

R 


sq Ft Area of roll RCS nozzle 

deg Default value for ending value of 

angles of attack 



c DASTAR R 

C 

C DLA R 

C 

c DDEND R 

C 

c DDSTAR R 

C 

c DLD R 

C 

c DHEND R 

C 

c DHSTAR R 

C 

C DLH R 

C 

c DVEND R 

C 

c DVSTAR R 

C 

C DLV R 

C 

C N_DB I 

C 

C PER R 

C 

c pi R 

c V_RCS R 

C X_DB ( 500 ) R 

C 

C xma>:_b R 

c 

c XMAXCS R 

c 

c XMAXWB R 

C 

c XMINCS R 

C 

c XMINWB R 

C 

C Y_DB ( 500 ) R 
C 

C YB R 

C 

C YMAX_B R 

C 

C YMAXCS R 

C 

c YMAXWB R 
C 

C GLOBAL VARIABLES 

c 

C CONPIE Common Block 
C NAME TYPE I/O UNITS 

C AEND R 

C AS TART R 
C ASTEP R 
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Default value for starting value of 
angles of attack 
Default value for number of 
angles of attack 

Default value for ending value of 
deflection angle 

Default value for starting value of 
deflection angle 
Default value for number of 
deflection angles 

Default value for ending value of 
heights 

Default value for starting value of 
heights 

Default value for number of 
heights 

Default value for ending value of 
velocities 

Default value for starting value of 
velocities 

Default value for number of 
velocities 

Number of coordinates passed to 
DIABAR routine . 

Used to keep track of perimeter 

when calculating PER_FR 

Constant: 3.1415926 

Velocity of flow in roll RCS nozzle 

X-coordinate for array which is 

passed to DIABAR routine. 

Maximum X-coordinate value for 
body. 

Maximum X-coordinate value for the 
center section. 

Maximum value of the X-coordinate s 
for WINGBODY planform. 

Minimum X-coordinate value for 
center section. 

Minimum value of the X-coordinates 
for WINGBODY planform. 

Y-coordinate for array which is 
passed to DIABAR routine. 

Body width at a particular nozzle 
location 

Maximum Y— coordinate value for the 
body . 

Maximum Y— coordinate value for the 
center section. 

Maximum value of the Y-coordinates 
for the WINGBODY planform. 
the above parameters and local vars) 


DESCRIPTION 


Ending value for angle of attack 
Starting value for angle of attack 
Step value for angle of attack 


deg 

deg 

deg 

deg 

deg 

deg 

deg 

Ft 

Ft/S 


Ft 


(in addition to 


I deg 
I deg 
I deg 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DEND R 1 

D START R 1 

DSTEP R 1 

HEND R 1 

HSTART R 1 

HSTEP R 1 

VEND R 1 

VS TART R 1 

VSTEP R 1 


FIGPIE Common Block 
NAME TYPE I/O 


B_B 

B_CS 

E_JP 

B_W 

B_WB 

D_F 

D_R 

D_RCS 

DE__B 

DB_CS 

DB_W 

DB_WB 

DE_F 

DE_FR 

DE_R 

E_1 

E_3 

E_4 

KR 

L_B 

L_CS 

L_F 

L_R 

L_WB 

MAC 

MD_RCS 

NOBODY 

N_CS 

N WING 


R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

R I 

I I 

I O 

I I 


c 

c N_WB I 

C 


C 

NDIV 


I I 


deg 

deg 

deg 

Ft 

Ft 

Ft 

kts 

kts 

kts 


UNITS 


Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

Ft 


Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

lbm/s 


Ending value for jet deflection 
angle 

Starting value for jet deflection 

angle „ 

Step value for jet deflection angle 

Ending value for altitude 

Starting value for altitude 

Step value for altitude 

Ending value for aircraft velocity 

Starting value for aircraft 

velocity 

Step value for aricraft velocity 


DESCRIPTION 


Width of Body 
Width of Center Section 
Width of Jet Pattern 
Width of Wing (Wing span) 

Width of Wing-Body 

Diameter of each Front jet 

Diameter of each Rear jet 

Diameter of Roll RCS nozzle 

Dbar of Body 

Dbar of Center Section 

Dbar of Wing 

Dbar of Wing-Body 

Effective Diameter of Front jets 

Effective Diameter of Front & Rear 

jets combined 

Effective Diameter of Rear jets 
Half distance between adjacent 

jets (1) . 

Half distance between adjacent 

jets (3) 

Half distance between adjacent 
jets (4) 

Body contour factor 

Length of body 

Length of Center Section 

Length of Front jet 

Length of Rear jet 

Length of Wing-Body 

Mean Aerodynamic Chord of wing 

Mass flow rate for one RCS nozzle 

Number of data points for Body 

planform 

Number of data points for Center 

Section planform 

Number of data points for Wing 

planform 

Number of data points for Wing- 
Body 

planform 

Number of divisions used when 
calculating suckdown areas (SDAREA) 
and Dbars (DIABAR) 
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c 

NUM 

I 

I 

Ft 

c 

NUM F 

I 

I 

— 

c 

NUM R 

I 

I 

— 

c 

PER FR 

R 

I 

Ft 

c 

PP LID 

R 

I 


c 

c 

PR F 

R 

I 

■— 

c 

PR FR 

R 

I 

— — *“ 

c 

PR R 

R 

I 

— 

c 

PR RCS 

R 

I 

— 

c 

PT RCS 

R 

I 

lb/sq ft 

c 

Q F 

R 

I 

lb/sq ft 

c 

Q_FR 

R 

I 

lb/sq ft 

c 

c 

Q R 

R 

I 

lb/sq ft 

c 

Q RCS 

R 

I 

lb/sq ft 

c 

R B 

R 

I 

Ft 

c 

S B 

R 

I 

Sq Ft 

c 

S CS 

R 

I 

Sq Ft 

c 

S F 

R 

I 

Sq Ft 

c 

S FA1 

R 

I 

Sq Ft 

c 

S FA 3 

R 

I 

Sq Ft 

c 

S FA4 

R 

I 

Sq Ft 

c 

S FR 

R 

I 

Sq Ft 

c 

S JP 

R 

I 

Sq Ft 

c 

S LID 

R 

I 

Sq Ft 

c 

S R 

R 

I 

Sq Ft 

c 

s w 

R 

I 

Sq Ft 

c 

S WB 

R 

I 

Sq Ft 

c 

SF FB 

R 

I 

Sq Ft 

c 

c 

SF FW 

R 

I 

Sq Ft 

c 

c 

sf fv;b 

R 

I 

Sq Ft 

c 

c 

SF RB 

R 

I 

Sq Ft 

c 

c 

SF RW 

R 

I 

Sq Ft 

c 

c 

SF RWB 

R 

I 

Sq Ft 

c 

c 

SP FA1 

R 

I 

Sq Ft 

c 

c 

SP FA 3 

R 

I 

Sq Ft 

c 

c 

SP FA4 

R 

I 

Sq Ft 

c 

c 

SP JP 

R 

I 

Sq Ft 

c 

c 

T F 

R 

I 

lb 

c 

T FR 

R 

I 

lb 

c 

T R 

R 

I 

lb 

c 

T RCS 

R 

I 

lb 

c 

THA 1 

R 

I 

deg 

c 

THA 3 

R 

I 

deg 

c 

THA 4 

R 

I 

deg 

c 

TP RCS 

R 

I 

Rankine 

c 


Total NUMber of jets 

NUMber of Front jets 

NUMber of Rear jets 

Total perimeter of jets 

Ratio of perimeter enclosed by lids 

to total perimeterC 

Jet Pressure Ratio for front jets 

Jet Pressure Ratio for all jets 

jet Pressure Ratio for rear jets 

Roll RCS Pressure Ratio 

Total pressure for one roll RCS jet 

Dynamic pressure for the front jets 

Dynamic pressure for Front and Rear 

jets 

Dynamic pressure for the rear jets 
Dynamic pressure for roll RCS jets 
Corner radius of body sides. 

Area of Body 

Area of Center Section 

Area of Front jets 

Area affected by fountain arm (1) 

Area affected by fountain arm (3) 

Area affected by fountain arm (4) 

Total jet exit area 

Area enclosed by Jet Pattern 

Area enclosed by LIDS 

Area of Rear jets 

Area of Wing 

Area of Wing-Body 

Area ahead of Front jets using body 
planform 

Area ahead of Front jets using wing 
planform 

Area ahead of Front jets using the 
wingbody planform 
Area ahead of Rear jets using the 
body planform 

Area ahead of Rear jets using the 
wing planform 

Area ahead of Rear jets using the 
wingbody planform 

Potential area affected by fountain 
arm (1) 

Potential area affected by fountain 
arm (3) 

Potential area affected by fountain 
arm (4) 

Actual surface area within area 
enclosed by nozzles 
Thrust of Front jets 
Total thrust in all jets 
Thrust of Rear jets 
Thrust of roll RCS nozzle 
Half angle between jets (1) 

Half angle between jets (3) 

Half angle between jets (4) 
Temperature of flow in roll RCS 
nozzle 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TT F 

R 

TT R 

R 

W F 

R 

W R 

R 

WL B 

R 

WL_CS 

R 

WL F 

R 

WL_JP 

R 

WL R 

R 

WL WB 

R 

X BODY (500) R 

X_CS (30) 

R 

X FR 

R 

X_RCS 

R 

X WE (500) 

R 

X WING (500) R 

XCA_CG 

R 

X CA 

R 

X CG 

R 

XCG C2 

R 

XCG C4 

R 

XCG F 

R 

XCG R 

R 

XNOZ F 

R 

XNOZ R 

R 

XTE_F 

R 

XTE_R 

R 


H 

X 1 

R 

Y_3 

R 

Y_4 

R 

Y BODY (500) R 

Y_CS (30) 

R 

Y F 

R 

YNOZ F 

R 

YNOZ R 

R 

Y R 

R 

Y RCS 

R 


Y_WB (500) R 
YJWING (500) R 
YB_F R 

YB R R 


I Ft 
I Ft 

I 

I 

I Ft 

0 Ft 

1 Ft 
I Ft 

I Ft 
I Ft 
I Ft 

I Ft 
I Ft 
I Ft 
I Ft 
I Ft 
I Ft 
I Ft 
I Ft 
I Ft 


I Ft 


I Ft 
I Ft 
I Ft 

I Ft 

0 Ft 

1 Ft 
I Ft 
I Ft 
I Ft 
I Ft 

I Ft 
I Ft 
I Ft 

I Ft 

I Ft 


Front Thrust / total Thrust 

Rear Thrust / total Thrust 

Width of Front jet 

Width of Rear jets 

Width to Length ratio of Body 

Width to Length ratio of Center 

Section 

Width to Length ratio of Front jets 
Width to Lenght ratio of 
Jet Pattern 

Width to Length ratio of Rear jets 
Width to Length ratio of Wing-Body 
x-coordinates of Body planform 
X-coordinates of Center Section 
planform 

Distance between Front & Rear jets 
Distance of roll RCS nozzle ahead 
of wing trailing edge 
X-coordinates of Wing-Body planform 
X-coordinates of Wing planform 
Distance of center of area ahead of 
CG 

X-coordinate of Center of Area 
X-coordinate of Center of Gravity 
Distance from CG to MAC/2 
Distance from CG to MAC/4 
Distance Front jet is ahead of CG 
Distance Rear jet is ahead of CG 
X-coordinates of Front NOZzle 
X-coordinates of Rear NOZzle 
X-coordinate of trailing edge 
for front nozzle (root TE if 
Nozzle within body) 

X-coordinate of trailing edge 
for rear nozzle (root TE if 
Nozzle within body) 

Spanwise extent of planform on 
fountain arm (1) center line. 
Spanwise extent of planform on 
fountain arm (3) center line. 
Spanwise extent of planform on 
fountain arm (4) center line. 
Y-coordinates of Body planform 
Y-coordinates of Center Section 
planform 

Distance between Front jets 
Y-coordinates of Front NOZzle 
Y-coordinates of R NOZzle 
Distance between Rear jets 
Distance of roll RCS nozzle in from 
wingtip 

Y-coordinates of Wing-Body planform 
Y-coordinates of Wing planform 
Lateral distance from Body to Front 
jets (for external jets) 

Lateral distance from Body to Rear 
jets (for external jets) 

Maximum spanwise extent of 


YP 1 
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c 

YP 3 

R 

I 

Ft 

c 




Ft 

c 

YP_4 

R 

I 

c 

c 

YWB F 

R 

I 

Ft 

c 




Ft 

c 

YWB_R 

R 

I 

c 

c 

z_w 

R 

I 

Ft 

c 





c 

MI SC Common 

Block 



c 

NAME 

TYPE 

I/O 

UNITS 

c 


— 

— 


c 

POINTS 

I 

I 

— 

c 





c 

XPTS (500) 

R 

I 


c 

YPTS (500) 

R 

I 



c 

TOTAL 

R 

I 





C PIEFLAG Common Block 


c 

NAME 

TYPE 

I/O UNITS 

c 


— 



c 

c 

c 

FLGRCS 

L 

o 

c 

c 

TYPE_F 

CM 

o 

c 

TYPE R 

CM 

o 

c 

c 

WBFLAG 

L 

o 


C 

C 



c PI ERROR Common Block 
C NAME TYPE I/O UNITS 

C — 

c DBERR I 0 

C 

C 

C 

c 

C 

c 

C 

C 

c 

C 

C 

c 

C 

c 

c 

C 

C 

c 

c 

c 


planform (1) 

Maximum spanwise extent of 
planform (3) 

Maximum spanwise extent of 
planform (4) 

Lateral distance from Wingbody to 
Front jets (for external jets) 
Lateral distance from wingbody to 
Rear jets (for external jets) 
height of wing above nozzle 


DESCRIPTION 


Number of points which define 
polygon (not to exceed 500) 
X-coordinates of polygon 
Y-coordinates of polygon 
Total area enclosed by the polygon. 


DESCRIPTION 

Flag which signals if there is an 
RCS on the configuration 
(TRUE - RCS, FALSE - No RCS) 
Discription of type of front nozzle 
(CIRCular, OVAL, RECTangular) 

Same as TYPE_F but for rear nozzles 
Identifies when wingBody planform 
has been enter by the user. Used 
todetermine when to use the 
wingbody in calculations. 


DESCRIPTION 

Error flag returned by DIABAR. If 
IFLAG = 1/ then an explanation of 
the problem is given at the time of 
the error. 

0 = no errors. 

1 = values of dbar & area 

probably bad. 

2 = moved x-position of dbar 

point/nozzle point to 
geometric center. 

3 ~ input NANGLE was 

inappropriate (set to 
absolute value or 1000) . 

4 = Points entered in wrong 

direction, routine aborted. 
Must enter points from left 
to right. 

5 = 1st and last points not on 

x-axis, routine aborted. 

6 = the sweeping ray intersected 

more than 4 points or zero 
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c 

c 

C T_ERR I o 

C 

c 



C RESPIE Common Block 
C NAME TYPE I/O UNITS 

c 

C LA R I 

C 

C LD R I 

C 

C LH R I 

C LV R I 

C FILES USED: 

C LOGICAL UNIT I/O DESCRIPTION 


C 


points; values returned may 
be bad. 

Thrust numbers (T_F , T_R, T_FR, TT_F , 
TT_R) were entered in the wrong 
combination 


DESCRIPTION 


Total number of Angle of Attack 
values 

Total number of nozzle deflection 
angles. 

Total number of height values. 
Total number of velocity values. 


C (none) 

C COMMONS USED: 

C NAME DESCRIPTION 

c 7 

C CONPIE CONtrol variables for Power Induced Effects - Contains 

C variables which control the execution of the PIE module. 

C FIGPIE conFIGuration for Power Induced Effects - Contains all 

C variables needed to define the configuration and other 

C parameters of the aircraft. 

C PIEFLAGS Power Induced Effects FLAGS - Contains variables which 

C help keep track of the configuration of the aircraft. 

C PI ERROR Power Induced Effects for eRRORs - Contains all error 

C flags within PIE. 

C POLYGON Contains the points used in POLYAR when calculating the 
C area of a polygon and CENTAR when calculating the center 

C of area. 

C RESPIE RESults from all POwer Induced Effects subroutines - 

C Contains results from each subroutine along with 

C variables for height, velocity, jet defelction angle, 

C and angle of attack and their counters. 

C CALLED BY: 

C ' NAME DESCRIPTION 


C 

C COPPIE Main driver routine for the PIE module. 

C ROUTINES CALLED: 

C NAME DESCRIPTION 

C 

C LINTERP Linear interpolates between two X and Y values give an 
C intermediate X value 

C CENTAR Calculates the center of area, area and area in front of 

C a point for a given planform 

C POLYAR Calculates the area of any polygon 

C S DARE A Calculates areas necessary to make calculations for the 

C fountain effect 

C DIAEAR Calculates angular mean diameter of a planform 

C SSEN Calculates start, stop, end, and number variables which 

C have not been defined 

C NOTES: None. 

C REFERENCES: 

C 1) None. 
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ENVIRONMENT: 

FORTRAN 77, VAX 6800, 
NON-STANDARD CODE: 

? 

AUTHOR (S) : 

Kipp E. Howard (KEH) , 


VAX 


11/785, SGI IRIS 4D series. 


Cal Poly San Luis Obispo, NASA Ames Moffett 


REVISION HISTORY: 

DATE INITIALS & DESCRIPTION 

£2 :: and fixed events 





♦include "conpie . inc” 
#include "figpie.inc" 
♦include "misc.inc" 
♦include "pieflag. inc" 
♦include "pierror.inc" 
♦include "respie . inc" 


REAL PI, X_DB (500) , Y_DB(500) 
INTEGER N_DB, DLA, DLD, DLH, DLV 

C 

PI = 3.1415926 


Q 

C Determine the number and placement of the nozzles 
C Check front nozzle (s) if necessary 

IF (NUM_F .EQ. 9999.) THEN 
C 

IF (YNOZ_F .EQ. 0.0) THEN 
NUM_F = 1 
ELSE 

NUM_F = 2 

END IF 


C 

END IF 
C 

C Check rear nozzle (s) if necessary 

IF (NUM_R .EQ. 9999.) THEN 
C 

IF (YNOZ_R .EQ. 9999.) THEN 
NUM R = 0 

ELSE IF (YNOZ_R .EQ. 0.0) THEN 
NUM_R = 1 
ELSE 

NUM_R = 2 
END IF 


C 


END IF 


C 

C 

c 

c 

c 

c 

c 

c 

c 


alculate total number of nozzles if necessary 
it (NUM .EQ. 9999.) NUM = NUM_F + NUM_R 

f ther are no rear nozzles, assign the values for rear nozzles 
gual to the value of the front nozzles (this is because SD AREA 
eeds to have at two nozzles input and for the side-by S1 ^ 
Station only one nossle Is shown on the planfom. SDAREA 
nows this configuration if both nozzles have the same 


coordinates . 
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IF (NUM_R -EQ. 0 .AND. 
XNOZ_R = XNOZ_F 
YNOZ_R - YNOZ_F 
END IF 


NUM F . GT. 1) THEN 


C 

C 

c 

c 


c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 

c 


Find the extremes (maximums and minimums) for each planform 

initialize XMAX and XMIN to the first points of the wrngbody 
planform. 

XMINWB = X_WB ( 1 ) 

XMAXWB = X_WB(1) 

YMAXWB = Y_WB (1 ) 

D ° issim wingbody planform coordinate to XMINWB if the wingbody 
planform coordinate is less than XMINWB. 

IF (X WB (I ) .LT. XMINWB) XMINWB = X_WB(I) . 

Assign wingbody planform coordinate to XMAXWB if the wingbody 
planform coordinate is greater than XMAXWB. 

IF (X WB (I ) .GT. XMAXWB) XMAXWB = X_WB(I) 

Assign wingbody planform coordinate to YMAXWB if the wingbody 
planform coordinate is greater than YMAXWB. 

IF (Y WB(I) .GT. YMAXWB) YMAXWB = Y_WB(I) 

IF (X WB (I ) .GT. XNOZ_F .AND. X_WB (1-1) .LE. XNOZ_F) 

$ THEN 

Determine the Y-coordinate at the nozzle placement using 
a linear interpolation method. 

CALL LINTERP (XN0Z_F , X_WB (I) , X_WB (1-1 ) , Y_WB ( 1 ) / 

; Y_WB(I-1),YB) 

Calculate distance from body side to jet center. 

IF (YWB F .EQ. 9999.) YWB_F = YNOZ_F - YB 
END IF 

IF (X WB (I) .GT. XNOZ_R .AND. X_WB(I-1) .LE. XNOZ_R 

p .AND. NUM R .GE. 1) THEN 

Determine the Y-coordinate at the nozzle placement using 
a linear interpolation method. 

CALL LINTERP (XNOZ_R, X_WB (I ) , X_WB (1-1 ) , Y_WB (I ) , 

? YJWB(I-l) ,YB) 

Calculate distance from body side to jet center. 

IF (YWB_R .EQ. 9999.) YWB_R = YNOZ_R - YB 
END IF 

CONTINUE 

IF (.NOT. WBFLAG) THEN x _ , , 

Initialize XMAX and XMIN to the first points of the body 

planform. 

YMAX_B = Y_BODY ( 1 ) 

XMAX B = X_BODY (1) 

DO 20 I = 2, N_BODY . ^ ^ , . 

Assign body planform coordinate to YMAX_B if the body 
planform coordinate is greater than YMAX_B. 

IF (Y BODY (I) .GT. YMAX_B) YMAX_B = Y_BODY(I) 

Assign wingbody planform coordinate to XMAXWB if wingbody 
planform coordinate is greater than XMAXWB. 

IF (X BODY (I) .GT. XMAX_B) XMAX_B = X_BODY(I) 

Find distance from body to jets if jets are outside body. 


C 

10 

C 

C 

C 
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$ 

C 

c 

$ 

c 


c 

$ 

c 

c 

$ 

c 


IF (X_BODY{I) . GT. XN02_F .AND. X_B0DY(I-1) .LE. XNOZ_F) 
^Determine the Y-coordinate at the nozzle placement using 

Y BODY (I-D ,YB) 

Calculate distance from body side to jet center. 

IF (YB_F .EQ. 9999.) YB_F = YNOZ_F - YB 
END IF 

IF (X_BODY ( I ) .GT. XNOZ_R .AND. X_B0DY(I-1) .LE. XNOZ_R 

Determine^ the ' Y-coordinate at the nozzle placement using 

CALL .*_“»«> , 

Y BODY (I— 1 ) , YB) 

Calculate distance from body side to jet center. 

IF <YB_R .EQ. 9999.) YB_R = YNOZ_R - YB 
FMD TF 


C 

20 CONTINUE 

END IF 


C 

c 

c 


25 

C- 

c 

c 

c 

c 


Initialize XMAX and XMIN to the first points of the center 
section planform. 

YMAXCS = Y_CS ( 1 ) 

XMAXCS = X_CS(1) 

XMINCS = X_CS(1) 

DO 25 I = 2, N_CS 
IF (X_CS(I) .LT. 

IF (X_CS (I ) .GT. 

IF (Y_CS (I ) .GT. 

CONTINUE 


XMINCS) 

XMAXCS) 

YMAXCS) 


XMINCS 

XMAXCS 

YMAXCS 


X_CS(I) 
X_CS(I) 
Y CS(I) 


of all pieces (body, wing, wingbody. Jet Pattern, 
front and rear nozzles) 

THEN 

dimensions 


.EQ. 9999.) B_WB = 2.0 * YMAXWB 


Find dimensions 
center section, 

IF (WBFLAG) 

Wingbody 
Width 
IF (BJWB 
Length 

IF (L WB .EQ. 9999.) L_WB = XMAXWB 
Width - to length ratio 

IF <WL_WB .EQ. 9999.) WL_WB = B_WB / L_WB 

B_B =0.0 

L_B =0.0 

WL_B =0.0 

B_W =0.0 

B_CS =0.0 

L_CS =0.0 

WL CS = 0.0 


c 

c 

c 

c 


ELSE 

Body dimensions 
Width 

IF (B B .EQ. 9999.) B_B 
Length 

IF (L_B .EQ. 9999.) L_B 
Width to length ratio 


2.0 * YMAX_B 
XMAX B 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 


c 

c 


IF (WL_B .EQ. 9999.) WLJ3 = B_B / L_B 
Wing dimensions 

"r dt (B_W .EQ. 9999.) B_W - 2.0 * 9MAXWB 
Wingbody dimensions 

IF dt (S_WB .EQ. 9999.) B_WB - 2.0 * TOAXMB 

STm .EQ. 9999.) 1J® - XMAXWB 
width to length ratio 

IF (WL_WB .EQ. 9999.) WL_WB = B_WB / L_WB 
Center Section 

IF d «_CS .EQ. 9999.) B_CS - 2.0 * TOAXCS 

IF^L-CS .EQ. 9999.) L_CS = XMAXCS - XMINCS 

Width to Length ratio . r< , 

IF (WL_CS .EQ. 9999.) WL_CS - B_CS / L_C 

END IF 

et Pattern dimensions 

IF d "(B JP .EQ. 9999 .AND. NUM .GE. 3) THEN 
Front nozzle is wider than the 
ir (YNOZ F .GE. YNOZ_R) B_JP = 2 * YNOZ F 
Rear nozzle is wider than 

IF (YNOZ R .GT. YNOZ_F) B_JP - 2 YNOZ_R 
ELSE IF (B_JP .EQ. 9999) THEN 
B_JP = 0 
END IF 


Width to length ratio 

IF (WL JR .EQ. 9999. .AND. NUM .GE. 3) THEN 
WL JP = B JP / (XNOZ_R - XNOZ_F) 

ELSE IF (WL_JP .EQ. 9999.) THEN 
WL_JP =0.0 
END IF 


Front nozzles 

Determine what type of nozzles . ... t p EO 

IF (D F .NE. 9999. .AND. ( (W_F .EQ. 9999. .AND. L_F . Q. 

$ . OR. _ (W_F .EQ. L_F) ) ) THEN 

ELSE Y IF - Vf' C EQ C '9999. .AND. W_F .NE. 9999. .AND. L_F . 
$ THEN 

ELSE Y IF - Vf ,R S T, 9999. .AND. W_F .NE. 9999. .AND. L_F 


$ THEN 

TYPE F = 'OVAL' 
END IF _ 


width to length ratio 
IF (TYPE_F .EQ. ’CIRC') THEN 
W_F = D_F 
L_F = D_F 
VJL_F = 1.0 
ELSE 

WL F = W F / L_F 


, 9999.) 

.NE. 9999.) 
.NE. 9999.) 



on non on no 


END IF 
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c 

c 


c 

c 

c 

c 

c 

c 


c 


c 

c 


Distance between front jets 

IF (NUM F .GT. 1 .AND. Y_F .EQ. 9999.) THbW 

y F = 2.0 ™ 0Z t F Y F EQ 9999.) THEN 

ELSE IF (NUMF .EQ. 1 -AND. Y_F .EQ. 

y_f = o.o 

END IF 

Ecruivalent diameter 
IF (DE_F .EQ. 9999.) THEN 
For circular nozzles 

IF (TYPE F .EQ. 'CIRC') THEN 

DE F = SQRT (NUM_F * D_F**2.0) 

For oval nozzles 

ELSE IF (TYPE_F .EQ. 'OVAL ) THEN 
DE F = SQRT (NUM_F * W_F L_F) 

For rectangular nozzles 

ELSE IF (TYPE F .EQ. 'RECT ) THEN 

DE F = SQRT(4.0/PI*NUM_F*W_F*L_F) 

END IF ~ 


END IF 

ear nozzles 
Rear nozzles present? 

IF (NUM R .NE. 0) THEN 

Determine what type of nozzles 

IF (D R .NE. 9999. .AND. ( (W_R .EQ. 9999. .AND. L_R .EQ 
$ .OR. (W_R .EQ. L_R) ) ) THEN 

ELSE YP irVR ,C EQ' , 9999. -AND. W_R .NE. 9999. .AND. 

$ L_R .NE. 9999.) THEN 

ELSE Y IF-VR ,R ^ T, 9^9. .AND. W_R .NE. 9999. .AND. 

$ L_R .NE. 9999.) THEN 
TYPE_R = 'OVAL' 

END IF _ 

Width to length ratio 
IF (TYPE_R .EQ. 'CIRC') THEN 
W_R = D_R 
L_R = D_R 
WL_R =1.0 
ELSE 

WL_R = W_R / L_R 

FMT1 TF 


c 

c 


Distance between rear jets 
IF (NUM R .GT. 0 .AND. YNOZ_R .NE. 


0.0 .AND. Y_R .EQ. 


. 9999. 


9999.) 



no n o o no 
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C 

c 

c 


c 

c 

c 


c 

c 


c 

c 


$ THEN 

Y R = 2.0 * YN0Z_R 

else” 

Y_R =0.0 
END IF 

.«®. ««.» - CT - 01 THEN 
CE - R - S ° RT<N0M - R * D - R " 2 ' 01 
S'.SSlrSr •«*!•> DE - R - SOB.TWJ' * K _ R * L - Rl 

I? r (SpeIr^eq! 'rIctm de_r - SQRT(4.0/PI*Nm_R*W_R* R _ R l 
END IF 

^Q ta S999 £r !fji G XCG_R - X_CG - XNOZ_R 

No Rear nozzles 

£T gp 

Set all pertinent values to 0.0 

D_R =0.0 

W_R =0.0 

L_R =0.0 

WL_R =0.0 

DE_R =0.0 

XCG_R =0.0 

S_R =0.0 

Y_R =0.0 

YB_R =0.0 

SF_RB =0.0 

SF_RW =0.0 

SF_RWB =0.0 

W_R =0.0 

TYPE R = * NONE ' 

END IF 

Both nozzles 

Distance between front and rear 
IF (NUM R .GT. 0 .AND. X_FR .EQ. 9999.) 

X FR = XNOZ R - XNOZ_F 
ELSE'IF (X_FR .EQ. 9999.) THEN 
X_FR =0.0 
END IF 

Equivalent diameter 
IF (DE_FR .EQ. 9999.0) THEN 

IF (NUM R .GT. 0) THEN 

DE FR = SQRT (DE_F**2 . 0 + DE_R 2.0) 

ELSE _ 

DE_FR = DE_F 

end if 

END IF 



non o o 
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c 


Total perimeter of jets 
IF (PER_FR .EQ. 9999.) THEN 


Front jets 

IF (TYPE_F .EQ. 'CIRC') THEN 
PER = PI * D_F 

ELSE IF (TYPE F .EQ. 'OVAL') THEN 
PER = 2.0 * PI * SQRT ( (W_F**2 . 0 + 
ELSE IF (TYPE_F .EQ. 'RECT') THEN 
PER = 2.0 * W_F + NUM_F * L_F 
END IF 


L F**2 . 0) 


/ 2 . 0 ) 


PER FR = NUM F * PER 


C 


C 

c 


Rear jets 

IF (NUM R .GT. 0) THEN 


IF (TYPE_R .EQ. 'CIRC') THEN 
PER = PI * D_R 

ELSE IF (TYPE_R .EQ. 'OVAL') THEN 
PER = 2.0 * PI * SQRT ( (W_R**2 . 0 + 
ELSE IF (TYPE_R .EQ. 'RECT') THEN 
PER = 2.0 * W_R + 2.0 * L_R 
END IF 


L R**2 . 0) 


/ 2 . 0 ) 


PER FR = PER_FR + NUM_R * PER 
END IF _ 


END IF 


C- 

C 

c 

c 


Find values dealing with areas for planforms (DEAR, CENTER OF AREA, 

AREA AHEAD AND BEHIND JETS, ETC.) 

rind the center of area for the wingbody configuration 

it wlcl EO 999 !.) CALL CENTAR (1 . 9999.. X_«B, Y_WB, N_WB, X_CA) 
Calculate XCA__CG 

IF (XCA CG .EQ. 9999.) XCA_CG = X_CG - X_CA 


C 

c Find total area of body 
IF (S B .EQ. 9999.) THEN 


C 

IF (.NOT. WBFLAG) THEN 

CALL CENTAR (2, 9999., X_BODY, Y_BODY, N_BODY, S B) 

C The area has to be multiplied by 2 because only half the 

C the planform is defined. 

S_B = 2.0 * S_B 
ELSE 

S_B = 0.0C 
END IF 


C 

END IF 
C 

c Find total area of wing 

IF (S_W .EQ. 9999.) THEN 
C 

IF (.NOT. WBFLAG) THEN 

CALL CENTAR (2, 9999., X_WING, Y_WING, N_WING, S_W) 

C The area has to be multiplied by 2 because only half the 

C the planform is defined. 
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S_W = 2.0* S_W 
ELSE 

S_W =0.0 
END IF 


C 

c 


c 

c 


c 

c 


c 

c 


END IF 

Find total area of wingbody 
IF (S WB .EQ. 9999.) THEN 

CADL CENTAR (2, 9999. , X_WB, Y_WB, N WB, S_WB) 

The area has to be multiplied by 2 because only half the 
the planform is defined. 

S_WB = 2.0 * S_WB 
END IF 

Find total area of center section 
IF (S_CS .EQ. 9999.) THEN 

IF (.NOT. WBFLAG) THEN 

CALL CENTAR (2, 9999., X_CS, Y_CS, N CS, S_CS) 

The area has to be multiplied by 2 because only half the 
the planform is defined. 

S_CS =2.0* S_CS 
ELSE 

S_CS =0.0 
END IF 


C 

C 

c 


c 

c 


END IF 

Find the area ahead of the front nozzle 
Using the body planform 
IF (SF_FB .EQ. 9999.) THEN 

IF (.NOT. WBFLAG) THEN „„ 

CALL CENTAR (3, XNOZ F, X_BODY, Y_BODY, N_BODY, _ * 

The area has to be multiplied by 2 because only half the 
the planform is defined. 

SF_FB = 2.0 * SF_FB 
ELSE 

SF_FB =0.0 
END IF 


C 

c 


c 

c 


c 

c 


END IF 

Using the wing planform 
IF (SF_FW .EQ. 9999.) THEN 

IF (.NOT. WBFLAG) THEN 

CALL CENTAR (3, XNOZ_F, X_WING, Y_WING, N_WING, SF FW) 

The area has to be multiplied by 2 because only half the 
the planform is defined. 

SF_FW = 2.0 * SF_FW 
ELSE 

SF_FW =0.0 
END IF 

END IF 
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c 

c 


c 

c 

c 

c 

c 


c 

c 


Using the wingbody planform 

IF Tx WB, V WB, » ». SF_FWB) 

to be iultiplied by 2 because only halt the 

the planform is defined. 

SF FWB = 2.0 * SF__FWB 
END IF 

Find the area ahead of the rear nozzles if necessary. 

Using the body planform 
IF (NUM_R .GT. 0) THEN 

IF (SF_RB .EQ. 9999.) THEN 

IF CALL T CENTAR(3! XNOZ_R, X_BODY, Y_BOD y N_BODY, SF RB) 

The area has to be multiplied by 2 because only half the 
the planform is defined. 

SF RB = 2 . 0 * SF_RB 
ELSE ” 

SF_R£ =0.0 
END IF 


C 

c 


c 

c 


END IF 

Using the wing planform 

IF ( SF__RW .EQ. 9999.) THEN 

IF ^L T CEOTAR(3! XNOZ_R, X_WING , Y__WING , N_WING , SF FW ) f ^ 
The area has to be multiplied by 2 because on y 
the planform is defined. 

SF_RW = 2.0 * SF_RW 
ELSE 

SF_RW =0.0 
END IF 


C 

C 


c 

c 


END IF 

Using the wingbody planform 
IF (SF RWB .EQ. 9999.) THEN 

CALL CENTAR(3, XNOZ_R, X_WB, Y_WB, .. 

The area has to be multiplied by 2 because only half the 
the planform is defined. 

SF_RWB = 2.0 * SF_RWBC 
END IF 


NJWB, SF_RWB) 


END IF 


C 

c 


Find the area enclosed by the Jet Pattern 


IF (S_JP .EQ 
XPTS(l) = 
YPTS(l) = 
XPTS (2) = 
YPTS (2) = 
XPTS (3) = 
YPTS (3) = 
XPTS (4) = 


9999 

XNOZ_F 

0.0 

XNOZ_F 
YNOZ_F 
XNOZ_R 
YNOZ_R 
XNOZ R 


.AND. NUM .GE. 3) THEN 
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c 

c 


c 

c 


YPTS (4 ) =0.0 
POINTS = 4 

T^arefSs to be multiplied by 2 because only half the 
the planform is defined. 

S JP = 2.0 * TOTAL 
ELSE IF <S_JP .EQ. 9999.) THEN 
S_JP =0.0 
END IF 

set default value for actual surface |rea ^closed by Jet pattern 
IF (SP_JP -EQ. 9999. .OR. SP_JP -GT. S_JP) THEN 

IF (NUM .GE. 3) THEN 
SP_JP * S_JP 
ELSE 

SP_JP =0.0 
END IF 


C 

C 

c 

c 


c 

c 

c 

c 


c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


END IF 

npt prmine 33TS3 of 63.cl"i nozzlo . 

Front nozzles (using DE because the shape of nozzle 

IF 

IF S-nozzIes 0 (using DE because the shape of nozzle has 

been accounted for when DE was n c ^ 1 ^ 1 ^*^ ) n 
tt fc n PO 9999 ) S R = PI / 4.0 * DE_R**2.0 
Front - and ?ear nozzlel (using DE because the shape of nozzles 
have been accounted for when DE was calculated) 

IF (S_FR .EQ. 9999.) S_FR = S_F + S_R 

ELSE ~ 

S_R =0.0 
S_FR = S_F 

END IF 


Kisc. Calculations 

Jet dynamic pressures 

IF LTs^nl choke df^ i sent rop i c flow at nozzle exit, const. Gamma. 
Qjet = 1/2 * RHOe * Vexit A 2 
RHOe = Pe/ (R * Te) 

Vexit = SQRT (Gamma * R * Te) 

Using isentropic pressure ratio for choked flow (Mach 1-1 ) , 
aSSpieric pressure, and Pressure Ratio and after reducing 
all numbers the following equation applies. 


Constants used: 


Pe/Po = .52828 
R = 53.34 #f*ft/ (#m*R) 
Gamma = 1.4 

IF (Q_FR .EQ. 9999.) Q_FR = 782.92 * PR_FR 
Q_F = Q_FR 
PR F = PR FR 


IF (NUM R .GE. 1) THEN 
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c 

c 

c 


c 


c 


c 


c 


c 


c 


c 


Q_R = Q_FR 
PR_R = PR_FR 
ELSE 

Q_R =0.0 
PR_R =0.0 
END IF 


ELSE IF (PR_F .NE. 9999.) THEN 


Same as above. 

IF (Q F .EQ. 9999. ) 


Q F = 782.92 * PR 


F 


IF (PR R -NE. 9999.) THEN 
Q R = 782.92 * PR_R 
Q FR = (Q_F + Q_R) / 2 • ® 
PR_FR = (PR_F + PR_R) / 2 -° 
ELSE ~~ 


IF (NUM_R . GE. 1) THEN 
Q_R = Q_F 
PR_R = PR_F 
ELSE 

Q_R =0.0 
PR_R =0.0 
END IF 


Q_FR = Q_F 
PR_FR = PR_F 
END IF 


END IF 

Account for different thrust inputs 
IF (NUM_R .EQ. 0) THEN 

IF (T_F .NE. 9999.) THEN 
T_FR = T_F 
ELSE 

T_F = T_FR 
END IF 


TT_F 
T_R = 
TT_R 

- Input 
ELSE IF 

T_FR 

TT_F 

TT_R 

- Input 
ELSE IF 

T_F = 
T_R < 
TT_R 

- Input 
ELSE IF 

T_R : 
T_F 
TT F 


= 1.0 
0.0 
= 0.0 

of front and rear thrusts only 
(T F .NE. 9999. .AND. T_R .NE. 9999.) THEN 

= T F + T_R 

= T~F / T_FR 

= 1.0 - TT_F ^ 

of Front thrust split and total thrust. 

°TT_F NE 9999. .AND. T_FR -NE. 9999.) THEN 

= T_FR * TT_F 
= T_FR - T_F 
= T R / T_FR 

of rear thrust split and totla thrust. 

(TT R .NE. 9999. .AND. T_FR .NE. 9999.) 

= T_FR * TT_R 
= T_FR - T_R 
= T F / T FR 


THEN 


C 
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c 


c 


c 


c 


c 


- Input of front thrust split and front ttoust. 

ELSE IF (TT F .NE. 9999. .AND. T_F .NE. 9999.) THEN 

T_FR = t“f / tt_f 
T_R = T_FR - T_F 
TT R = T_R / T_FR 

- Input of rear thrust split and rear thrust. 

ELSE S (TT_R .NE. 9999. .AND. T_R .NE. 9999.) THEN 
T_R = T_R / TT_F 
T_R = T_FR - T_F 
TT R = T_R / T_FR 

- Input of total thrust and rear thrust. 

ELSE IF {T_FR .NE. 9999. .AND. T_R .NE. 9999.) THEN 
T_F = T_FR - T_R 
TT_F = T_F / T_FR 
TT R = T_R / T_FR 

- Input of total thrust and front thrust. 

ELSE IF (T FR .NE. 9999. .AND. T_F .NE. 9999.) THEN 
T_R = T~FR - T_F 
TT_F = T_F / T_FR 
TT_R = T_R / T_FR 

- Error with thrust inputs 
ELSE 

T_ERR = 1 
END IF 


Calculate the distance from the CG to the mid span point 

of the MAC. „ . „ „ 

IF (XCG_C2 .EQ. 9999.) XCG_C2 =XCG_C4 - MAC / 4.0 

Set default values for PP_LID based on configuration . 

IF (PP_LID .EQ. 9999. ) THEN 

IF (NUM .GE. 3 .AND. S_LID .NE. 0.0) THEN 
PP_LID =1.0 
ELSE 

PP_LID =0.0 
END IF 


END IF 

Calculate placement of trailing edge of wing relative to the rear 
nozzle if there are rear nozzles and trailing edge placement 
has not been entered. 

IF (NUM_R .GT. 0 .AND. XTE_R .EQ. 9999.) XTE_R = XTE_F 

Calculate body contour factor (KR) (NADC-80246-60 Pg 38 Eq. 26) 

IF (KR .EQ. 9999.) THEN 

IF (R_B ,EQ. 9999.) THEN 
C Set default value 

KR = .666667 

ELSE IF (NUM_R .EQ. 0) THEN 
C Length wise fountain 

KR = .05 * (R_B / (Y_F/2.0) )**-1.0 
ELSE 

C Core-and-Arm, and cross wise fountains 

KR = .54 * (R_B / (X_FR/2 . 0) ) **-. 20 
END IF 
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c 


END IF 


C 


Calculate all variables that define fountain arms 


30 


Body planform 
IF (Z_W .GT. 0.0 .AND. 
POINTS = N BODY 


.NOT. WBFLAG) THEN 


DO 30 I = 1, POINTS 
XPTS(I) = X_BODY (I) 
YPTS(I) = Y_BODY ( I ) 
CONTINUE 


Wingbody planform 


40 


ELSE 

POINTS = NJWB 
DO 40 I = 1, POINTS 
XPTS (I) = X_WB (I) 
YPTS (I) = YJWB (I) 
CONTINUE 
END IF 


C 


IF (NUM .GT. 1) THEN 

CALL SDAREA (0, SDAERR, XPTS, 
ELSE 

E_1 =0.0 
E_3 = 0.0 
E_4 =0.0 
Y_1 = 0.0 
Y_3 = 0.0 
Y_4 =0.0 
Y?_l = 0.0 
YP_3 =0.0 
YP_4 =0.0 
THA_1 =0.0 
THA_3 =0.0 
THA_4 =0.0 
S_FA1 =0.0 
S_FA3 =0.0 
S_FA4 =0.0 
SP_FA1 =0.0 
SP_FA3 =0.0 
SP_FA4 =0.0 
END IF 


YPTS, POINTS, NDIV) 


C Calculate DBAR for Wingbody if only wingbody is given 
IF (WBFLAG) THEN 
C 

C Wingbody planform 

IF (DB_WB .EQ. 9999.) THEN 
POINTS = N_WB 
DO I = 1, POINTS 

XPTS (I) = X_WB (I) 

YPTS (I) = YJWB (I) 

CALL D DIABAR(0,DBERR, XPTS, YPTS, POINTS, XNOZ_F+X_FR/2 . 0, 
s NDIV, DB WB) 

END IF 


C 


DB B = 0.0 
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C 

c 

c 


c 

c 


DB_W =0.0 
DB_CS =0.0 
ELSE 

Calculate DBAR for each planform 
Body planform 
IF (DB_B .EQ. 9999.) THEN 
POINTS = N_BODY 
DO 50 I = 1, POINTS 
XPTS(I) = X_BODY ( I ) 

YPTS(I) = Y_BODY ( I ) 

50 CONTINUE .. . 

CALL DIABAR (0, DBERR, XPTS, YPTS, POINTS, XNOZ_F+X_FR/2. 0, 

$ NDIV, DB_B) 

END IF 

Wing planform 
IF (DB_W .EQ. 9999.) THEN 
POINTS = NJWING 
DO 60 I = 1, POINTS 
XPTS (I) = X_WING(I) 

YPTS (I) = YJWING(I) 

€0 CONTINUE . 

CALL DIABAR (0, DBERR, XPTS, YPTS, POINTS, XNOZ_F+X_FR/2 . 0, 
$ NDIV, DB_W) 

END IF 

Wingbody planform 
IF (DB_WB .EQ. 9999.) THEN 
POINTS = N_WB 
DO 70 I = 1, POINTS 
XPTS (I) = X_WB(I) 

YPTS (I) = YJWB(I) 

70 CONTINUE „ 

CALL DIABAR (0, DBERR, XPTS, YPTS, POINTS, XNOZ_F+X_FR/2 . 0 , 
$ NDIV, DBJWB) 

END IF 

Center section planform 
IF (DB_CS .EQ. 9999.) THEN 
POINTS = N_CS 
DO 80 I = 1, POINTS 
XPTS (I) = X_CS(I) 

YPTS (I) = Y_CS (I ) 

80 CONTINUE 

CALL DIABAR (0, DBERR, XPTS, YPTS, POINTS, XNOZ_F+X_FR/2 . 0 , 
$ NDIV, DB_CS ) 

END IF 


C 

c 


c 

c 


END IF 


C Determine roll RCS variables when necessary. 

IF (X_RCS .EQ. 9999. .OR. Y_RCS .EQ. 9999.) THEN 
FLGRCS = .FALSE. 

ELSE 

FLGRCS = .TRUE. 

END IF 
C 
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C Determine roll RCS variables when necessary. 

IF (FLGRCS) THEN 

C Find pressure ratio of nozzle 

IF (PR_RCS .EQ. 9999.) then 
C 

if (PT_RCS .eq. 9999.) then 

C Assume Q_RCS is known 

PT_RCS = Q_RCS / 144.0 
PR~RCS = PT_RCS / 14.7 
ELSE IF (Q_RCS .EQ. 9999.) THEN 
C Assume PT_RCS is known 

PR_RCS = PT_RCS / 14.7 
END IF 
C 

END IF 

Find total pressure of the nozzle 
IF (PT_RCS .EQ. 9999.) PT_RCS = PR_RCS * 14.7 
Find roll jet dynamic pressure 
IF (Q_RCS .EQ. 9999.) Q_RCS = PT_RCS * 144.0 

Find roll jet diameter 
IF (D_RCS .EQ. 9999.) THEN 

Velocity (assume choked flow at the nozzle) 

V RCS = SQRT (1 . 4 * 53.34 * 32.2 * TP_RCS) 

Area of nozzle 

A_RCS = (T_RCS - MD_RCS * V_RCS / 32.2) / 

$ (PT_RCS - 14.7) / 144. 

Diameter of Nozzle 
D_RCS = 2.0 * SQRT (A_RCS /PI) 

END IF 

ELSE 

PT_RCS =0.0 
Q_RCS =0.0 
D_RCS =0.0 
END IF 

Make looping variable calculations 

Set default values for looping variables 
Angle of Attack 
DAEND = 30. 

DASTAR = 0. 

DLA = 4 

Deflection angle 
DDEND = 30. 

DDSTAR = 90. 

DLD = 7 
Height 

DHEND = 20 * DE_FR 
DHSTAR - 2 * DE_FR 
DLH = 25 
Velocity 
DVEND = 100. 

D VS TAR = 1 
DLV =20 

Obtain starting, stepping, ending and number (SSEN) values for 
the following looping variables 
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c 

c 

c 

c 

c 


^S e slra“sl»T, ASTEP , AENDf LA, DASTAR. DAE®, DLA, 9999.1 

SS^ToSSS. DSTEP. BE®, LD, DDSTAR. DDE®, DLD, 9999., 

CALL^SSEN (HSTART , HSTEP, BE®, LH, DHSTSK. D®®, DLH, 9999.) 

Sir“sEH(VSIART. VSTEP , VE®. LV, DVSTAR, DVE® , DLV, 9999.) 

RETURN 

END 


Sdarea 

SUBROUTINE SDAREA (IFLAG, SDAERR, Jf^NPTS^NSLlCE) 

c'pURPOSE: THIS ROUTI® ^^^^Jj^poSITlS” MJTHE & I®B®ED 

SE SF *"" 1 

COORDINATES OF THE NOZZLE. 

PA S TERS: TYPE I/O UNITS DESCRIPTION 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IFLAG 


SDAERR 


X (500) 


FEET 


USER INTERACTION FLAG: 

1 = USER INTERACTION (CAN RUN AS 
A STAND ALONE ROUTINE. 

OTHERWISE = NO USER INTERACTION 
(ALL INPUTS FROM THE CALLING 
ROUTINE) . 

ERROR FLAG RETURNED BY SDAREA. I 
IFLAG = 1, THEN AN EXPLANATION OF THE 
PROBLEM IS GIVEN AT TIME OF THE ERROR. 

0 = NO ERRORS. 

1 = THERE WAS AT LEAST ONE VERTICAL 

LINE WITHIN PLANFORM DATA. 

(SECOND VALUE PERTURBED BY .05 
UNI T S ) 

2 = NOZZLE HAVE BEEN PLACED EITHER 

IN FRONT OF OR BEHIND THE AIRCRAF 
(ROUTINE ABORTED) . 

3 = INPUT NSLICE WAS INAPPROPRIATE 

(SET TO ABSOLUTE VALUE OR 1000) . 

4 = POINTS ENTERED IN WRONG DIRECTION, 

ROUTINE ABORTED. MUST ENTER 
POINTS FROM LEFT TO RIGHT. 

5 = 1ST AND LAST POINTS NOT ON X-AXIS, 

ROUTINE ABORTED . 

6 = THE NUMBER OF SLICES THAT WERE 

ADDED BY COMPUTER EXCEEDS MAXIMUM 
VALUE OF 2000 INTERNAL SLICES. 

decrease number of slices. 

X-VALUES OF THE PLANFORM (LIMIT = 500) . 
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c 

c 

c 

c 

C Y (500) R 

C NPTS I 

C 

C NSLICE I 

C 

C LOCAL VARIABLES 
C NAME TYPE 

C A R 

C 

C ATYPE I 

C 

C B R 

C 

C BLINE1 R 

C BLINE2 R 

C BLINE3 R 

C BLSPAN R 

C BMSPAN R 

C 

C BTEST R 

C 

C C R 

C 

C 

C DX R 

C 

C DXX R 

C 

C El R 

C 
C 
C 

C E2 R 

C E3 R 

C E4 R 

C FACT R 

C 
C 

C HOLE (3) R 

C 

C 

C 

C 

Cl I 

C II I 


C IMAX I 

C 

C I MIN I 

C 

C LINE1 R 

C 

C LINE2 R 

C LINE3 R 


VALUES MUST START FROM THE LEFT AND 
PROCEDE COUNTERCLOCKWISE FOR ONE HALF OF 
THE AIRCRAFT (THE AIRCRAFT IS ASSUMED 
SYMMETRICAL) . 

FEET Y — VALUES OF THE PLANFORM (LIMIT = 500) . 

NUMBER OF POINTS USED TO DEFINE THE 

PLANFORM. 

j NUMBER OF SLICES IN THE PLANFORM USED 

IN THE INTEGRATION TECHNIQUE. 

(IN ADDITION TO THE ABOVE PARAMETERS) : 

UNITS DESCRIPTION 


FEET 


FEET 

FEET 

FEET 

FEET 

FEET 

FEET 

FEET 

FEET 


FEET 

FEET 

FEET 


FEET 

FEET 

FEET 


FEET 

FEET 

FEET 


USED AS UPPER LIMIT FOR INTEGRATION 
SUBROUTINE (COMPLEMENTARY TO B) 

FLAG WHICH SIGNALS WHICH AREA TO ADD 
THE AREA FOUND IN A PARTICULAR SLICE . 

USED AS LOWER LIMIT FOR INTEGRATION 
SUBROUTINE (COMPLEMENTARY TO A) 
Y-INTERCEPT FOR LINE 1 
Y-INTERCEPT FOR LINE 2 
Y-INTERCEPT FOR LINE 3 

Y-INTERCEPT FOR SPAN LINE (FOUNTAIN LINE) 
Y-INTERCEPT OF LINE WHICH INTERSECTS 
POINT WHERE MSPAN(l) OCCURS. 

Y-INTERCEPT USED TO TEST WHERE MSPAN(l) 
OCCURS . 

USED AS UPPER LIMIT FOR INTEGRATION 
SUBROUTINE WHEN A AND B ARE BEING USED 
(COMPLEMENTARY TO 0.0) 

MAXIMUM WIDTH OF EACH SLICE IN THE 
PLANFORM. 

ACTUAL WIDTH OF EACH SLICE USED IN 
CALCULATIONS . 

HALF THE DISTANCE BETWEEN EACH FOUNTAIN 
ARM AND ITS NEAREST NOZZLE (IN THE 
CLOCKWISE DIRECTION, STARTING AT THE SIDE 
FOUNTAIN ARM. 

SEE El 
SEE El 
SEE El 

FACTOR WHICH ADDS OR SUBTRACTS AREA 
ACCORDING TO WHICH DIRECTION THE SLICER 
IS MOVING. 

HOLE DETERMINATION VALUE: 

0.0 = THERE IS NO HOLE IN FUSELAGE. 

1.0 = THERE IS A HOLE IN THE FUSELAGE. 
DO NOT INCLUDE THE PARTICULAR 
FOUNTAIN ARM IN CALCULATIONS. 
GENERAL PURPOSE COUNTER 
TEMPORARY VALUE OF I 

THE POINT NUMBER AT WHICH THE MAXIMUM X 
VALUE OCCURS 

THE POINT NUMBER AT WHICH THE MINIMUM X 
VALUE OCCURS 

VALUE OF LINES RADIATING FROM NOZZLE 1, 
PARALLEL TO THE FOUNTAIN ARM. 

VALUE OF LINE BETWEEN BOTH NOZZLE 
VALUE OF LINES RADIATING FROM NOZZLE 2, 



106 


c 

c LINE4 
C 

c LINE5 
C 

C LSPAN 
C 

c LSPANO 
C Ml 
C 

C M2 
C 

C MLINE1 
C MLINE2 
C MLINE3 
C MLSPAN 
C MMSPAN 
C 

c MTEMP 
C 

c MSPAN ( 3 ) 

C 

C N 

C NOZARE (2 ) 

C 

c 

c NOZZLE 
C PLACE (2) 
C 

C RAD (2) 

C RADTEM 
C 

C SAB 
C 

C SC 
C 

C SP1 
C 

C SP2 
C 

C SP3 
C 

C SPP1 
c SPP2 
C SPP3 
C SPAN (3) 

C STOT (3) 

C THETA1 
C 

c THETA2 
C THETA3 
C THETA4 
C TYPE (2) 
C 

C VERB (2) 
C 

C XI 

c 


R FEET 

R FEET 

R FEET 

R FEET 
R 

R 

R 

R 

R 

R 

R 

R 

R FEET 


R 


I 

T 

R FEET 
R FEET 

R SQ FT. 

R SQ FT . 

R SQ FT. 

R SQ FT . 

R SQ FT. 

R SQ FT . 

R SQ FT. 

R SQ FT . 

R FEET 
R SQ FT . 

R RADIANS 

R RADIANS 
R RADIANS 
R RADIANS 
T 

T 

R FEET 


PARALLEL TO THE FOUNTAIN ARM. 

VALUE OF LINES RADIATING FROM NOZZLE 2, 
PARALLEL TO THE AIRCRAFT CENTER LINE. 
VALUE OF LINES RADIATING FROM NOZZLE 1, 
PARALLEL TO THE AIRCRAFT CENTER LINE . 
VALUE OF LINE THAT REPRESENTS FOUNTAIN 

ARM. 

PREVIOUS VALUE OF LSPAN. 

SLOPE OF LINE FROM NOZZLE 


1 TO FOUNTAIN 


2 TO FOUNTAIN 


CORE 

SLOPE OF LINE FROM NOZZLE 
CORE 

SLOPE OF LINE 1 
SLOPE OF LINE 2 
SLOPE OF LINE 3 

SLOPE OF SPAN LINE (FOUNTAIN ARM) • 

SLOPE OF LINE WHICH HELPS DEFINE MSPAN 

IN REGION 1. , 

SLOPE OF MIDDLE FOUNTAIN ARM IN THE 
FOUR NOZZLE CONFIGURATION. 

MAXIMUM SPANWISE EXTENT OF PLANFORM 

between jets . 

ANOTHER GENERAL PURPOSE COUNTER. 

AREA OF NOZZLE WHICH CAN BE SUBTRACTED 
FROM THE TOTAL AREA FOUND UNDER EACH 
FOUNTAIN ARM. 

NUMBER OF NOZZLE (MAXIMUM OF 4) 

TEXT DESCRIBING HOW MANY NOZZLE THERE 
ARE AT A PARTICULAR PLACE ON PLANFORM. 
RADIUS OF EACH NOZZLE 
TEMPORARY VALUE OF RADIUS USED IN 
SORTING THE NOZZLE POSITIONS. 

AREA BETWEEN 'A' AND 'B' THAT THE 
INTEGRA SUBROUTINE CALCULATES. 

AREA BETWEEN 'C' AND 0.0 THAT THE 
INTEGRA SUBROUTINE CALCULATES . 

AREA OF PLANFORM THAT IS AFFECTED BY 
FOUNTAIN ARM IN REGION 1. 

AREA OF PLANFORM THAT IS AFFECTED BY 
FOUNTAIN ARM IN REGION 2. ^ _ v 

AREA OF PLANFORM THAT IS AFFECTED BY 
FOUNTAIN ARM IN REGION 3. 

POTENTIAL AREA IN REGION 1. 

POTENTIAL AREA IN REGION 2 . 

POTENTIAL AREA IN REGION 3. 

SPANWISE EXTENT OF PLANFORM BETWEEN JETS 
TOTAL AREA FOUND UNDER EACH FOUNTAIN ARM 
HALF THE INCLUDED ANGLE BETWEEN ADJACENT 
FOUNTAIN ARMS. 

SEE THETA1 
SEE THETA1 

SEE THETA1 „„ 

TEXT DESCRIBING WEATHER THE NOZZLE ARE 

INTERNAL OR EXTERNAL. 

TEXT USED TO ALLOW THE DISCRIPTION 
SENTENCE TO BE GRAMATICALLY CORRECT. 

1ST X-COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1 . 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


X2 

X3 


X4 


XCORE 
XMAX 
XMIN 
XNOZ (2) 

XSLICE (2000 ) R 
XSPAN R 


FEET 

FEET 

FEET 

FEET 

FEET 

FEET 

FEET 

FEET 

FEET 


XTEMP 

R 

FEET 

XYMAX 

R 

FEET 

Y1 

R 

FEET 

Y2 

R 

FEET 

Y3 

R 

FEET 

Y4 

R 

FEET 

YCORE 

R 

FEET 

YMAX 

R 

FEET 

YNOZ (2) 

R 

FEET 

YPRIME 

R 

FEET 

Y SLICE (2000) R 

FEET 

YSPAN 

R 

FEET 

ytemp 

R 

FEET 

YXMAX 

R 

FEET 

YXMIN 

R 

FEET 


GLOBAL VARIABLES ( 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 

TYPE 

I/O 

UNITS 


— 

— 


ANG FR 

R 

I 

Ft 

B B 

R 

I 

Ft 

B JP 

R 

I 

Ft 

B W 

R 

I 

Ft 

B WB 

R 

I 

Ft 

D F 

R 

I 

Ft 

D R 

R 

I 

Ft 

D RCS 

R 

I 

Ft 

DB B 

R 

I 

Ft 

DB W 

R 

I 

Ft 

DB WB 

R 

I 

Ft 

DE F 

R 

I 

Ft 

DE FR 

R 

I 

Ft 


2ND X-COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1 . 

3^ ^COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1 . 

4?H ^COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1 . 

X-COORDINATE OF THE FOUNTAIN CORE . 

MOST AFT POINT ON THE PLANFOPM. 

MOST FORWARD POINT ON THE PLANFORM. 
X-COORDINATE OF EACH NOZZLE 
POSITION INDICATOR ACROSS PLANFORM. 
X-COORDINATE OF SPANWISE EXTENT OF 
PTANFORM BETWEEN JETS. TT ___ 

GENERAL PURPOSE TEMPORARY VALUE OF X USED 
IN MANY DIFFERENT CALCULATIONS. 

THE X-COORDINATE THAT CORRESPONDS TO 
THE Y-COORDINATE THAT IS THE FARTHEST 
POINT FROMTHE AIRCRAFT CENTERLINE (YMAX) . 
1ST Y-COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1. 

2ND Y-COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1 . 

3PD Y-COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1. 

4TH Y-COORDINATE USED TO DEFINE THE 
POTENTIAL AREA OF REGION 1. 
v-roORnTNATE OF THE FOUNTAIN CORE. 
FARTHEST POINT FROM THE AIRCRAFT CENTER 

LINE. „ TT , 

y-coordinate of each nozzle^ _ 

VALUE USED TO DETERMINE M2 FOR 3 NOZZLE 
Y-VALUE OF PLANFORM AT THE SLICE POINT. 

y-coordinate of spanwise extent of 

PLANFORM BETWEEN JETS. 

GENERAL PURPOSE TEMPORARY VALUE OF Y 
IN MANY DIFFERENT CALCULATIONS. 

THE Y-COORDINATE THAT CORRESPONDS TO 
THE MOST AFT POINT ON THE PLANFORM 

THE^Y-COORDINATE THAT CORRESPONDS TO 

MOST FORWARD POINT ON THE PLANFORM 

• <X o I the above parameters and local vars 

DESCRIPTION 


USED 


Front and Rear jet deflection AN^le 

Width of Body 

Width of Jet Pattern 

Width of Wing (Wing span) 

Width of Wing-Body 

Diameter of each Front j et 

Diameter of each Rear jet 

Diameter of Roll RCS nozzle 

Dbar of Body 

Dbar of Wing 

Dbar of Wing-Body 

Effective Diameter of Front jets 

ni ameter of Front & Rear 
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DE R 

R 

I 

Ft 

DR 

R 

I 

— 

F NAME 

C 

I 


H 

R 

I 

FT 

I CALC 

I 

I 

— 


KB 

R 

I 

— 

KR 

R 

I 

— — 

L B 

R 

I 

Ft 

L F 

R 

I 

Ft 

L R 

R 

I 

Ft 

L WB 

R 

I 

Ft 

MAC 

R 

I 

Ft 

MD RCS 

R 

I 

lbm/s 

N_BODY 

I 

I 


n_wing 

I 

I 

— 

N_WB 

I 

I 

— 

NUM 

I 

I 

Ft 

NUM_F 

I 

I 

— — — — 

NUM_R 

I 

I 

— —— — 

PER FR 

R 

I 

Ft 

PP_LID 

R 

I 


PR FR 

R 

I 

— 

PR RCS 

R 

I 

— — — 

PT RCS 

R 

I 

lb/sq ft 

Q_FR 

R 

I 

lb/sq ft 

Q RCS 

R 

I 

lb/sq ft 

S B 

R 

I 

Sq Ft 

S JP 

R 

I 

Sq Ft 

S F 

R 

I 

Sq Ft 

S FR 

R 

I 

Sq Ft 

S LID 

R 

I 

Sq Ft 

S R 

R 

I 

Sq Ft 

s w 

R 

I 

Sq Ft 

S WB 

R 

I 

Sq Ft 

SF_FB 

R 

I 

Sq Ft 

SF FWB 

R 

I 

Sq Ft 

SF RB 

R 

I 

Sq Ft 

SF RWB 

R 

I 

Sq Ft 

2 . 

CO 

R 

I 

Sq Ft 

SPLY F 

R 

I 

Ft 

SPLY_R 

R 

I 

Ft 

T F 

R 

I 

lb 

T R 

R 

I 

lb 


jets combined 

Effective Diameter of Rear jets 
Density Ratio (Jet / Atm) 

Name of file which contains nozzle 
placement & size, body & wing 
planform coordinates 
Heiqht of nozzle exit above ground 
Global executation flag for ACSYNT 

1) Input data 

2) Make calculations 

3) Output necessary data 
Boundary layer factor 

Body contour factor 

Length of body 

Length of Front jet 

Length of Rear jet 

Length of Wing-Body 

Mean Aerodynamic Chord of wing 

Mass flow rate for one RCS nozzle 

Number of data points for Body 

planform 

Number of data points for Wing 
planform 

Number of data points for Wing-Body 
planform 

Total NUMber of jets 

NUMber of Front jets 

NUMber of Rear jets 

Total perimeter of jets 

Ratio of perimeter enclosed by lids 

to total perimeterC 

jet Pressure Ratio for all jets 

Roll RCS Pressure Ratio 

Total pressure for one roll RCS jet 

Dynamic pressure for Front & Rear 

i6t S 

Dynamic pressure for roll RCS jets 
Area of Body 

Area enclosed by Jet Pattern 
Area of Front jets 
Total jet exit area 
Area enclosed by LIDS 
Area of Rear jets 
Area of Wing 

Area of Wing-Body , 

Area ahead of Front jets using body 
planform 

Area ahead of Front jets using 

wingbody planform 

Area ahead of Rear jets 

Area ahead of Rear jets using the 

wingbody planform 

Actual surface area within Jet 

Pattern 

SPLaY angle of Front jet 
SPLaY angle of Rear jet 
Thrust of Front jets 
Thrust of Rear jets 
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T RCS 

R 

tp_rcs 

R 

TT_F 

R 

TT R 

R 

VO 

R 

W F 

R 

W R 

R 

WIWE 

R 

WL_B 

R 

WL_JP 

R 

WL F 

R 

WL R 

R 

WL WB 

R 

X BODY (500) R 

X FR 

R 

X_RCS 

R 

X WB (500) 

R 

X WING (500) R 

XCA_CG 

R 

X CA 

R 

X CG 

R 

XCG C2 

R 

XCG_C4 

R 

XCG F 

R 

XCG_I 

R 

XCG R 

R 

XNOZ_F 

R 

XNOZ R 

R 

Y BODY (500) R 

Y F 

R 

YNOZ_F 

R 

YNOZ R 

R 

.. Y R 

R 

Y_RCS 

R 

Y WB (500) 

i R 

Y WING (500) R 

YB_F 

R 

YB_R 

R 

Z B 

R 

ZCG I 

R 

z w 

R 


COMMONS USED: 
NAME 


CONPIE 

FIGPIE 


I Ft 
I Ft 
I Ft 


I Ft 
I Ft 
I Ft 


I Ft 
I Ft 
I Ft 

1 common blocks 
CRIPTION 


Thrust of roll RCS nozzle 
Temperature of flow m roll RCS 

nozzle ^ 

Front Thrust / total Thrust 

Rear Thrust / total Thrust 

Forward velocity of aircraft 

width of Front jet 

Width of Rear jets , 

now weight of inlet / Flow Weight 

of Exit . 

Width to Length ratio of Body 
Width to Lenght ratio of Jet 

Widt^to Length ratio of Front jets 
Width to Length ratio of Rear jets 
Width to Length ratio of Wing Body 
X-coordinates of Body planform 
Distance between Front & * ear 3 
Distance of roll RCS nozzle ahead 
of wino trailing 

X-coordinates of Wing-Body planform 
X-coordinates of Wing planform 
Distance of center of area ahead o. 

CG 

X-coordinate of Center of Area 
X-coordinate of Center of Gravity 
Distance from CG to MAC/ 2 
Distance from CG to MAC/ 4 
Distance Front jet is ahead of CG 
inlet longitudinal distance ahead 

Distance Rear jet is ahead of CG 
X-coordinates of Front NOZzle 
X-coordinates of Rear NOZzle 
Y-coordinates of Body planform 
Distance between Front jets 
Y-coordinates of Front NOZzle 
Y-coordinates of R NOZzle 
Distance between Rear jets 
Distance of roll RCS nozzle in from 

Y -coor di nat e s of Wing-Body planform 
Y-coordinates of Wing planform 
Lateral distance from Body to Front 
iets (for external jets) 

Lateral distance from Body to Rear 
lets (for external jets) 

Height of body base above nozzle 
Inlet vertical distance above CG 
height of wing above nozzleC 
used throughout PIE) 


• ,kioc for Power Induced Effects — Contains 
control th. elution' ? 

ameters of the aircraft. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FILES USED: 

LOGICAL UNIT I/O DESCRIPTION 


7 I 

NON-STANDARD CODE: 
7 

NOTES : 


Input file, used when IFLAG is set to 1. 


CAN BE RUN AS A STAND ALONE ROUTINE IF CALLED WITH IFLAG 
SET = 1. 


CALLED BY: 
NAME 


DESCRIPTION 

Control s _ executicn and coordination of Power Induced 
Effects Module 
SUBROUTINES CALLED: 

DESCRIPTION 

Calculates the intersection of two lines, with each 
line defined by two points 

Calculates the distance between two points 
Calculates the areas of thin rectangles 
Calculates the intersection of two lines, each define 
by a slope and Y-intercept . „„ 

Linear interpolates between two X and Y values give a 

intermediate X value _ . _ 

Calculates the perpendicular distance between a po 

and a line 


COPPIE 


NAME 

CROSSIN 

DIST (FUNC) 

INTEGRA 

LINECRO 

LINTERP 

PERPDIS 


ENVIRONMENT : 

VAX, VMS, FORTRAN 


AU Ripp ( e! ' H oward (KEH) , Cal Poly San Luis Obispo, NASA Ames Moffett 


REVISION HISTORY: 

DATE INITIALS & DESCRIPTION 

02/12/90 KEH — ORIGINAL CODE COMPLETED 

07/14/91 KEH — Eliminated extraneous spacing and fixed comments 

# include "figpie.inc" 

REAL DX, DXX, El ,E2, E3, E4 , LINE1, LINE2, LINE3,LINE4, LINE5,M1, M2, 

S RAD (2) RADTEM. THETA1 , THETA2, THETA3, THETA4, X(500), XNOZ(2), 

I %££' 'iSTK Y {5001 , YTEMP, YNO Z (2) . XCORE YCORE. 

$ YPRIME YSLICE (2000) , XSLICE (2000) , STOT(3), A, B, C, MMSPAN, 

$ SPAN (3), MSPAN (3) , XSPAN, LSPAN, LSPANO, MLINE1 , MLINE2 , HOLE ( 3 ) , 

$ MLINE3, MLSPAN, BLINE1, BLINE2, BLINE3, BLSPAN, NOZARE(2) 

INTEGER ATYPE, I, II, IFLAG, SDAERR, NSLICE, NOZZLE, NPTS, FAC 
CHARACTER USERFI* 50, PLACE(2)*15, TYPE(2)*9, VERB(2)*3 


C Initialization of variables 

HOLE ( 1 ) =0.0 
HOLE (2) =0.0 
HOLE (3) =0.0 
C 

C I/O WITH THE USER (IFLAG = 1) . 

IF (IFLAG .EQ. 1) THEN 
WRITE ( S f * ) 1 1 

WRITE (6, *) 'THIS SUBROUTINEIS DESIGNED TO WORK ONLY FOR 
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$ SYMMETRICAL' THRUST IN EACH NOZZLE IS' 

SSSlttf'-SSSTfe *«“ *“ * ssmm ' 

WRITE (6, *) 'TO BE CIRCULAR. 

SS5 ««:*’) ''USB A TEXT FILE 

* S^M^TeoueS^ the beet .the 

$ NOSE OF THE AIRCRAFT) . 

WRJ TE ( 6 , * ) * 1 

* INPUT FILENAME THAT CONTAINS NOZZLE POSITIONS. X 

$ & Y COORDINATES : ' 

READ (* , 5) USERFI 
FORMAT (A50) 

ENDIF 

IF (IFLAG .EQ. 1) THEN 

Si!'.:’, 'HOW MANY SLICES IN THE PLANFOBM WOULD YOU LIKE TO 
$USE WHEN DETERMINING THE AREAS? (MAXIMUM 10 
READ * , NSLICE 
ENDIF 

SDAERR = 0 

IF (NSLICE. LT.l) THEN 

IF (IFLAG. EQ.O) THEN 
NSLICE = ABS (NSLICE) 

SDAERR = 3 

IF (NSLICE.LT. 1) THEN 
NSLICE =1000 
ENDIF 


C 

c 

c 

c 


10 

12 


ELSE 

Se (!;*) ' SORRY DAVE, I CAN NOT DO THAT (HAL).* 

GO TO 6 
ENDIF 

ELSE IF (NSLICE . GT. 1000) THEN 
NSLICE = 1000 
SDAERR = 3 

ENDIF 

ssssjs » 

WING TIP POINTS. 

IF S i™? 'i^'oz m!^z',°“™oz .2 , .had , 2 . 

READ (7, *r END = 12) x (I) , Y(D 
GO TO 10 
NPTS = 1-1 
ELSE 

XNOZ(l) = XNOZ_F 
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YN0Z(1) = YNOZ_F 
XNOZ (2 ) = XNOZ_R 
YNOZ (2 ) = YNOZ_R 
END IF 

DO 13 I = 1, NPTS 

IF (I .EQ. 1) THEN 
XMIN = X(I) 

YXMIN = Y(I) 

XMAX = X(I) 

YMAX = Y (I ) 

I MIN = I 
IMAX = I 
END IF 

IF ( (X(I) .EQ.X(I-l) ) .AND. (I.NE.l) ) THEN 
SDAERR = 1 

IF (IFLAG.EQ. 1) THEN 

WRITE (6,*) 'ONE LINE SEGMENT IN THE PLANFORM DATA WAS 
$ VERTICAL. 1 

WRITE (6,*) ' (THE SECOND VALUE WAS MOVED ALONG THE X-AXIS 

$ BY .05. ) ' 

END IF 

X(I) = X(I) + . 0001*X (I ) 

END IF 

IF (X(I) .LT. XMIN) THEN 
XMIN = X(I) 

YXMIN = Y (I ) 

I MIN = I 
END IF 

IF (X(I) .GT. XMAX) THEN 
XMAX = X (I ) 

YXMAX = Y (I) 

IMAX = I 
END IF 

IF (Y (I ) .GT. YMAX) THEN 
YMAX = Y (I ) 

XYMAX = X (I ) 

END IF 

13 CONTINUE 

MOVE ALL POINTS SO THAT THE MOST FORWARD PART OF THE AIRCRAFT IS 
AT X=0 . 

IF (XMIN .NE. 0.0) THEN 
DO 15 I = 1, NPTS 

X (I ) = X(I) - XMIN 
5 CONTINUE 

XNOZ (1 ) = XNOZ (1 ) - XMIN 
XNOZ (2) = XNOZ (2) - XMIN 
END IF 

SORT NOZZLE SO THAT NOZZLE ONE IS CLOSEST TO THE NOSE OF THE 
AIRCRAFT . 

IF (XNOZ (1 ) , GT. XNOZ (2)) THEN 

XTEMP = XNOZ { 1 ) 

YTEMP = YNOZ ( 1 ) 

RADTEM = RAD (1 ) 

XNOZ (1 ) = XNOZ (2) 

YNOZ (1 ) = YNOZ (2) 
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c 

c 


c 

c 

c 


c 

c 


rad (1) = RAD (2) 

XNOZ (2 ) = XTEMP 
YNOZ (2) = YTEMP 
RAD (2) = RADTEK 
END IF 

CATCHING FAULTY INPUT SO AS TO AVOID INACCURATE DATA IF POSSIBLE. 
IF (X(l).GT.X(NPTS)) THEN 

" WRITE( 6^* i ^ ERROR^IN DATA. PLEASE ENTER COORDINATES FROM 

$ LEFT TO RIGHT . 1 

SDAERR = 4 
GO TO 500 
ELSE 

SDAERR = 4 
GO TO 500 
ENDIF 

ENDIF 

IF ( (Y (1 ) .NE. Y(NPTS)) .OR. (Yd) -NE. 0)) THEN 

IF (IFL ^^ E ?; 1 'PTEASE TRY TO FOLLOW THE DIRECTIONS. HALF AN 
, AIRPlXoN 6 ^ X-SK TOTH YOUR FIRST AND LAST Y VALUES 

$ SHOULD BE 0. THANK YOU.' 

SDAERR = 5 
GO TO 500 
ELSE 

SDAERR = 5 
GO TO 500 
ENDIF 

ENDIF 

THFCK TO SEE IF NOZZLE ARE IN FRONT OR BEHIND PLMfO™ 

S' .<*■ (XNOZ (2) .GT.XMAX) THEN 

IF T™2 NOZZLES HAVE BEEN LOCATED IN FRONT OR 

S BEHIN^HE AIRCRAFT. THE NOZZLE MUST BE PLACED BETWEEN THE 
$ NOSE AND THE TAIL OF THE AIRCRAFT. 

SDAERR = 2 
GO TO 500 
ELSE 

SDAERR = 2 
GO TO 500 
END IF 

END IF 

IDENTIFY THE NUMBER AND PLACEMENT OF NOZZLES AS A CHECK FOR THE 
USER. 

NUMBER OF NOZZLES: 

IF (((YNOZ(l) .EQ.0.0) .AND. (YNOZ (2) .EQ. 0 . 0) ) .OR. 

$ (XNOZ (1) .EQ.XNOZ (2) ) ) THEN 
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C 

C 


C 

C 


c 

c 


ELSE°IF L UYNOZ(1).GT.O.O) .and. (YNOZ (2) .GT.0.0) ) THEN 
NOZZLE = 4 
ELSE 

NOZZLE = 3 
END IF 

VERBS FOR THE NUMBER OF NOZZLE 
IF (NOZZLE. EQ. 3) THEN 

IF (YNOZ (1) .GT.0.0)THEN 

PLACE (1) = ’ARE TWO NOZZLE' 

VERB (1 ) = 'ARE' 

PLACE (2) = 'IS ONE NOZZLE ' 

VERB (2) = 'IS ' 

ELSE 

PLACE (1) = 'IS ONE NOZZLE ' 

VERB (1 ) = 'IS ' 

PLACE (2) = 'ARE TWO NOZZLE' 

VERB (2 ) = 'ARE' 

END IF 

ELSE IF (NOZZLE. EQ. 2) THEN 

IF (XNOZ (1) .EQ.XNOZ (2) ) THEN 
PLACE (1) = 'ARE TWO NOZZLE' 

VERB (1 ) = 'ARE' 

ELSE 

~~ PLACE (1) = 'IS ONE NOZZLE ' 

PLACE (2) = PLACE (1) 

VERB (1) = 'IS ' 

VERB (2) = VERB (1 ) 

END IF 
ELSE 

PLACE (1) = 'ARE TWO NOZZLE’ 

PLACE (2) = PLACE (1) 

VERB (1 ) = 'ARE' 

VERB (2 ) = VERB (1 ) 

END IF 

PLACEMENT OF NOZZLE 
DO 20 I=1,NPTS 

IF ( (X (I) .GE.XNOZ (1) ) .AND. (X (1-1) .LT.XNOZ (1) ) ) THEN 
CALL LINTERP (XNOZ (1) ,X(I) ,X (1-1) ,Y(I) ,Y(I-1) ,ytemp) 

IF (YNOZ (1) .GT.YTEMP) THEN 
TYPE (1 ) = 'EXTERNAL.' 

ELSE 

TYPE (1 ) = 'INTERNAL. 1 
END IF 
END IF 

IF ((X (I) .GE.XNOZ (2)) .AND. (X (1-1) .LT.XNOZ (2) ) ) THEN 
CALL LINTERP (XNOZ (2) ,X (I) ,X (1-1) , Y (I) , Y (1-1) ,ytemp) 

IF (YNOZ (2) .GT.YTEMP) THEN 
TYPE (2) = 'EXTERNAL.' 

ELSE 

TYPE (2) = 'INTERNAL.' 

END IF 

DETERMINE WETHER THERE IS A HOLE IN THE FRONT OR REAR OF THE 
AIRCRAFT 

IF (I*. LT.IMIN.AND. Y (I) . EQ. 0 . 0 . AND . Y (1-1 ) .GT.Y(I) ) 
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$ IF^I-i . GT^IMAX . AND . Y ( I — 1 ) - EQ -0.0 . AND . Y (I) .GT . Y (1-1 ) ) 

$ HOLE (2) = 1.0 
20 CONTINUE 


MORE PLACEMENT OF NOZZLES 
IF (IFLAG.EQ. 1) THEN 
WRITE (6,*) ' ' 

WRITE (6,22) NOZZLE 


IF (XNOZ (1) .NE.XNOZ (2) ) THEN 

WRITE (6,23) PLACE (1) , 'FRONT ', VERB (1) , TYPE (1) 
WRITE (6,23) PLACE (2),' REAR VERB (2) , TYPE (2) 


ELSE 

WRITE 
END IF 
END IF 


(6,23) PLACE (1), 'CENTER', VERB (1), TYPE (1) 


CALCULATE PARAMETERS THAT DO NOT CHANGE AS AREAS ARE BEING 
CALCULATED (IE. FOUNTAIN CORE POSITION, SLOPES, ANGLES). 
TWO NOZZLES 
IF (NOZZLE. EQ. 2) THEN 

XCORE = (XNOZ (1 ) + XNOZ (2) ) /2 . 0 
YCORE =0.0 

IF (XNOZ(l) .NE. XNOZ (2)) THEN 
El = (XNOZ (2) - XNOZ (1) ) /2 . 0 
XSPAN = XCORE 
ELSE 

El = YNOZ(l) 

IF (YXMIN.EQ.0.0) THEN 
SPAN (3) = XCORE - XMIN 
MSPAN ( 3 ) = SPAN (3) 

END IF 

IF (YXMAX . EQ. 0.0) THEN 
SPAN (2) = XMAX - XCORE 
MSPAN (2) = SPAN (2) 

END IF 
END IF 

THETA1 = 3.1415926/2.0 


THREE AND FOUR NOZZLES 
ELSE 

C SLOPE OF IMPORTANT LINES 

MLINE2 = (YNOZ (2) - YNOZ (1 ) ) / (XNOZ (2) - XNOZ(l)) 

IF (MLINE2 . NE .0.0) THEN 
MLSPAN = -1 . 0/MLINE2 
MLINE1 = MLSPAN 
MLINE3 = MLSPAN 
END IF 

C Y-INTERCEPT OF IMPORTANT LINES 

BLINE1 = -MLINE1 * XNOZ(l) + YNOZ(l) 

BLINE2 = -MLINE2 * XNOZ(l) + YNOZ(l) 

BLINE3 = -MLINE3 * XNOZ (2) + YNOZ (2) 

BLSPAN = -MLSPAN * (XNOZ (1 ) +XNOZ (2) ) /2 . 0+ (YNOZ (1) +YNOZ (2 ) ) /2 . 0 

XCORE = -(BLSPAN / MLSPAN) 

YCORE =0.0 

Ml = (YCORE - YNOZ (1) )/ (XCORE - XNOZ(l)) 

M2 = (YNOZ (2) - YCORE) / (XNOZ (2) - XCORE) 

THETA4 = ABS (ATAN (Ml ) ) 
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THETA2 = ABS (ATAN (M2) ) 

IF ( ATAN (MLSPAN ) .GT. 0.0) THEN 

THETA1 = ATAN (MLSPAN) - THETA2 
ELSE 

THETAl = 3.1415926 - THETA2 + ATAN (MLSPAN) 

END IF 

THETA3 = 3.1415926 - THETAl - THETA2 - THETA4 
El = DIST (XNOZ (1) , YNOZ (1 ) , XNOZ (2) , YNOZ (2) ) /2 . 0 
E3 = El 
E4 = YNOZ ( 1 ) 

E2 = YNOZ (2) 

IF (NOZZLE. EQ. 3. AND. YNOZ (1) .GT. YNOZ (2) ) THEN 
E2 = YNOZ ( 1 ) 

E4 = 0.0 
END IF 

IF (YXMAX.EQ. 0.0) THEN 

SPAN (2) = XMAX - XNOZ (2) 

MSPAN (2 ) = SPAN (2) 

END IF 

IF (YXMIN.EQ.0.0) THEN 

SPAN (3) = XNOZ (1 ) - XMIN 
MSPAN (3) = SPAN (3) 

IF (YNOZ (2) .EQ. 0.0) THEN 
SPAN (2) = SPAN (3) 

MSPAN (2) = SPAN (2) 

SPAN (3) =0.0 
MSPAN (3) =0.0 

ELSE IF (YNOZ (1) .EQ. 0.0) THEN 
SPAN (3) =0.0 
MSPAN (3) =0.0 
END IF 
END IF 
END IF 

CALCULATE WIDTH OF EACH SLICE. 

DX = XMAX /NS LICE 

SET SLICER AT NOSE AND BEGIN MAKING SLICES ALONG THE THE YSLICE (N) OF 
THE AIRCRAFT. 

WRITE (6,32) 

N = 0 

X (NPTS+1 ) = X(NPTS) 

II = 1 
30 I = II 

N = N + 1 

IF (N-l .EQ. 0) THEN 
PSLICE = XSLICE (1 ) 

ELSE 

PSLICE = XSLICE (N-l) 

END IF 

DX IS GOING TO THE RIGHT WITH NO TURNS IN SIGHT 

IF ( (X (I ) . LT.X (1+1 ) ) . AND . (X (1+1) .LE .X (1+2) ) ) THEN 

THE NEXT SLICE COMES BEFORE THE NEXT OUTLINE POINT 
IF ( (PSLICE+DX) .LT.X(I+1) ) THEN 
DXX = DX 
II = I 

THE NEXT SLICE OCCURS AFTER THE NEXT OUTLINE POINT AND BEFORE 
THE POINT AFTER THAT. 
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ELSE IF (( (PSLICE+DX) .GE.X (1+1) ) -AND. 

$ { (PSLICE+DX) .LE.X(I+2) ) ) THEN 

DXX = DX 

THE^X^ SLICE OCCURS AFTER THE NEXT TWO OUTLINE POINTS 
ELSE IF (( (PSLICE+DX) . GT.X (1+2) ) .AND . 

$ (X (1+1) .LT.X (1+2) ) ) THEN 

DXX = ((X(II) + X(II+1) )/2.0) - PSLICE 
ELSE IF (X(I+1) .EQ.X(I+2)) THEN 
GO TO 100 
END IF 
FACT = 1 


C 

C DX 

c 


c 

c 


c 


T c GOING TO THE LEFT WITH NO TURNS IN SIGHT 
1 ELSE IF ((X(I) GT.X(I+l)).AND.(X(I+l).GE.X(I+2))) THEN 

TH^ NEXT SLICE OCCURS BEFORE THE NEXT OUTLINE POINT 
IF ( (PSLICE-DX) .GT.X(I+1) ) THEN 
nxx = -DX 


THE NEXT SLICE OCCURS AFTER THE NEXT OUTLINE POINT AND BEFORE 
THE POINT AFTER THAT. 

ELSE IF (( (PSLICE-DX) .LT.X (I+D) .AND. 

$ ( (PSLICE-DX) .GT.X (1+2) ) ) THEN 

DXX = -DX 

THE NEXT SLICE OCCURS AFTER THE NEXT TWO OUTLINE POINTS 
ELSE IF (( (PSLICE-DX) .LT.X (1+2) ) .AND. 

$ (X(I+1) .GT.X(I+2) ) ) THEN 

II = I + 1 

DXX = ((X(II) + X (II+l) ) /2 . 0) - PSLICE 
ELSE IF (X(I+1) .EQ.X(I+2) ) THEN 
GO TO 100 
END IF 
FACT = -1 


C 

C DX 
C 


S GOING TO THE RIGHT AND A TURN IS COMING UP- 
ELSE IF ( (X (I) .LT.X (1+1) ) .AND. (X (1+1) .GT.X (1+2) ) ) THEN 
THE NEXT SLICE OCCURS BEFORE THE NEXT OUTLINE POINT 
IF ( (PSLICE+DX) .LE.X (I+D) THEN 
DXX = DX 


II = I 
FACT = 1 
ELSE 

IF (PSLICE. LT.X (1+2) ) THEN 
II = I + 1 

DXX = ( (X(II)+X(II+1) )/2.0) -PSLICE 
ELSE IF (PSLICE. GT. ( (X (1+1 ) +X (1+2) )/2.0) ) THEN 
II = I + 1 
DXX =0.0 
ELSE 

II = I + 1 

DXX = ( (X(II)+X(II+1) )/2.0) - PSLICE 
END IF 

FACT = -1 


END IF 


C 

C DX IS GOING 


TO THE LEFT AND A TURN IS COMING UP. 
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fYfT+-n LT X(I) ) .AND. (X (1+2) .GT.X(I+1) ) 

ELSE IF ((X(I+1) -LT.AUM • 

IF ( (PSLICE-DX) .GE.X (1+1) THfcN 

DXX = ~DX 
II = I 
FACT = -1 

ELS ?f (PSLICE.GT.X(I*2)) then 

» TBEN 

II - I + 1 
DXX =0.0 
ELSE 

DXX~= I ( + (X 1 (II) + X( II + 1))/2 - 0) - PSLICE 
END IF 
FACT = 1 
END IF 

C END IF «f M SLICE POSITION GIVEN 'DXX' FROM MOVE MID DETERMINE THE 

c CALCULATE F0R THAT POSITION. 

C CORESPONDING Y SLICE (N) FOR 1 HAi 
IF (N-l -EQ. 0) THEN 
XSLICE(N) = DXX 

XSLICE(N) = XSLICE(N-l) + DXX 

END IF . V , TT . v/tt+11 Y(II),Y(H +1 )'y slice(n)) 

CALL LINTERP(XSLICE(N),X(II)fX(II+1)f^U 

IF (N.GE.2000) THEN 

SDAERR =6 , THE number OF INTERNAL SLICES HAS 

IF (IFLAG.EQ. 1) WRITE (,*) c?? C ES(2000) . PLEASE REDUCE THE 

$ EXCEEDED THE MAXIMUM NUMBER OF SLICES UUU 

$ number of slices . * 

GO TO 500 
END IF 

C determine where the slicer is onthe euct 

C ARM. 

r TWO NOZZLES 

IF (NOZZLE .EQ. 2) THEN 

ONE NOZZLE IN THE FRONT MID ONE IN THE REAR. 

IF uxs[i“(Si°W T Sz(l)).MID.(XSLICE(N).LT.XNOZ(2))) 

$ THEN 

A = YSLICE(N) 

B = 0.0 
ELSE 

A = 0.0 

determine^ maximum spmiwise and sfanwise extent of planform 

* SS ST£SSSm. (XSLICE (N-l) .LT.XSPAN) , 
s THEN CAEL LINTERR (XSPAN, XSLICE (N) , XSLICE ,N-1) , YSLICE(N) / 


c 

c 
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SPAN (1 ) = YTEMP 


C 

C 


C 

C 


C 

C 


yslice (N-l),ytemp) 

IF (SPAN (1) .LT. YTEMP) 

IF (MSP AN (1 ) • LT • A) MSPAN(l) -A 
ATYPE = 1 

TWO NOZZLES SIDE BY SIDE 

ELS IF (YSLICE (N).LT.YNOZ(l)) THEN 
A = YSLICE (N) 

B = 0.0 
ELSE 

A = YNOZ (1) 

DETeSiNE° MAXIMUM SPANWISE AMD SPANWISE EXTENT OF PLANEOBM 

s 

IF (N.EQ.l) THEN 

SPAN(l) = XCORE - X(l) 

SPAN (2) = X(NPTS) - XCORE 

ELSE™ (isLICE(N,.EQ.O 0) THEN 

IF (XCORE-XSLICE (N) . GT . 0 . 0) THE 

IF (SPAN(l) .LT. (XCORE-XSLICE (N) ) ) 

PPANfll = XCORE - XSLICE(N) 

ELSE* IF (XSLICE (N) -XCORE . GT . J^HEN 

IF (SPAN (2) .LT. XSLICE (N) -XCORE) 

SPAN (2) = XSLICE (N) - XCORE 
END IF 

UXSLICE (N) -XCORE, .LT. > > *» 

ELsf if SUs™ < 2 ’ > > IHEN 

MSPAN (2) = XSLICE (N) - XCORE 
END IF 

sneer is before the noszles then add to STOT13, 

THEN 

ATYPE = 3 
ELSE 

ATYPE = 2 
END IF 
END IF 
r = n n 


THREE NOZZLE 

ELSE IF (NOZZLE. EQ. 3) THEN 

LINE2 = MLINE2*XSLICE (N) +BLINE2 
LINE1 = MLINE1*XSLICE (N) +BLINE1 
LINE3 = MLINE3*XSLICE (N) +BLINE3 
T ^PANO = LSPAN 

LSPAN = MLSPAN*XSLICE (N) +BLSPAN 
IF (YNOZ (1) .GT. 0.0) THEN 
T TKTFd = YNOZ (1 ) 


ELSE 

LINE4 = YNOZ (2) 
END IF 
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ONE NOZZLE IN THE FRONT AND TOO NOZZLE IN THE REAR 
IF (LINE1 .LT.LINE3) THEN 
IF (LINE1 .GE.LINE2) THEN 

IF (LINE1 . LT . YSLICE (N) ) THEN 
IF (LINE3. LT. YSLICE (N) ) THEN 
A = LINE3 
B = LINE1 
ELSE 

A = YSLICE (N) 

B = LINE1 
END IF 
ELSE 

A = 0.0 
B = 0.0 
END IF 
C = 0.0 
ATYPE = 1 

ELSE IF (LINE3.GE.LINE2) THEN 
IF (LINE3 . LT .YSLICE (N) ) THEN 
A = LINE 3 
= LINE2 

IF (LINE2. LT. YSLICE (N) ) THEN 
YSLICE (N) 

LINE2 


$ 

$ 


B 

ELSE 
A 
B 

ELSE 

A = 0.0 
B = 0.0 
END IF 
C = 0.0 
ATYPE = 1 

ELSE IF (LINE4 .LT.LINE2) THEN 
IF (LINE 4 .GT. YSLICE (N) ) THEN 
A = YSLICE (N) 

ELSE 

A = LINE4 
END IF 
B = 0.0 
C = 0.0 

IF^ YSLICE (N) .EQ. 0 . 0 .AND. SPAN (2) .LT.XSLICE (N) -XNOZ (2) ) 

| 2 ciigSf!5! LINE4 ) 2 AND . ( (XSLICE (N) -XNOZ (2 ) ) . GT . 
MSPAN (2) ) ) ) MSPAN (2 ) =XSLICE(N) - XNOZ (2) 

END IF 


Skip test 
IF (N 
IF 


if N=1 , because subscript out of range 


for X, YSPAN 
NE. 1) THEN 

( (LSPANO-YSLICE (N-l) ) * (LSPAN-YSLICE (N) ) 

' ' _ „ . , -r -T- /-.T -1 1 \ VC 


LE.0.0) THEN 

CALL^ CROSSIN (XSLICE (N-l ) , YSLICE (N-l ) , XSLICE (N ) , 

YSLICE (N) , XSLICE (N-l) , LSPANO, XSLICE (N) ,LSPAN, 
xtemp.ytemp) 

IF (YSPAN. LT.YTEMP) THEN 
YSPAN = YTEMP 
XSPAN = XTEMP 
END IF 
END IF 


END IF 
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TWO NOZZLE IN THE FRONT AND ONE IN THE REAR. 

else 

IF (LINE3.GE.LINE2) THEN 

IF (LINE3.LT. YSLICE(N)) THEN 

IF (LINEl.LT. YSLICE <N)> then 
A = LINE1 
B = LINE3 
ELSE 

A = YSLICE(N) 

B = LINE3 
END IF 
ELSE 

A = 0.0 
B = 0.0 
END IF 
C = 0.0 
ATYPE = 1 

ELSE IF (LINE1 . GE . LINE2 ) THEN 
IF (LINE1 . LT . YSLICE (N) ) THEN 
A = LINE1 

ELSE IF LI (SnE2 . LT . YSLICE (N) ) THEN 
A = YSLICE (N) 

B = LINE 2 
ELSE 

A = 0.0 
B = 0.0 
END IF 
C * 0.0 
ATYPE = 1 

ELSE IF (LINE4 .LT.LINE2) THEN 

IF (LINE4.GT.YSLICE(N)) THEN 
A « YSLICE (N) 

ELSE 

A = LINE 4 
END IF 
E = 0.0 

IF^IYsllCE (N) .EQ. 0 . 0. AND. SPAN (2) .LT.XNOZ (1) -XSLICE (N) ) 

I™. ftsUK (Nl'aTTL^SJ.. ( (XSLICE ,N, -XNOZ (!)).«. 

= XNOZ (1 J - XSLICE(N) 

END IF 
END IF 


FOUR NOZZLES 
ELSE 

LINE2 = MLINE2*XSLICE (N) +BLINE2 
IF (YNOZ (1 ) .NE . YNOZ (2) ) THEN 

LINE1 = MLINE1* XSLICE (N) +BLINE1 
LINE3 = MLINE3*XSLICE (N) +BLINE3 
LSPANO = LSPAN 

LSPAN = MLSPAN*XSLICE (N) +BLSPAN 
END IF 

LINE 4 = YNOZ (2) 

BOTH I »ZZLES*AEE 1 THE SME DISTANCE FROM THE CENTER LINE. 
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IF (LINE5.EQ.LINE4) THEN 

IF (XSLICE(N) .LT.XNOZ(l)) THEN 
IF (LINES . LT . YSLICE (N) ) THEN 
A = LINE5 
ELSE 

A = YSLICE (N) 

END IF 
B = 0.0 
C = 0.0 
ATYPE = 3 

ELSE IF (XSLICE (N) . GT . XNOZ (2 ) ) THEN 
IF (LINE4. LT. YSLICE (N) ) THEN 
A = LINE4 
ELSE 

A = YSLICE (N) 

END IF 
B = 0.0 
C = 0.0 
ATYPE = 2 

ELSE IF (LINE2. LT. YSLICE (N) ) THEN 
A = YSLICE (N) 

B = LINE2 
C = 0.0 
ATYPE = 1 

END IF 

THE REAR NOZZLE ARE CLOSER TOGETHER THAN THE FRONT NOZZLE. 

ELSE IF (LINE5 . GT . LINE4 ) THEN 

IF (LINE2 .GT.LINE5) THEN 

IF (LINE5. LT. YSLICE (N) ) THEN 
A = LINE5 
ELSE 

A = YSLICE (N) 

END IF 
B = 0.0 
C = 0.0 
ATYPE = 3 

ELSE IF ( (LINE2.LE.LINE5) .AND. (LINE1.LT. YSLICE (N) ) ) THEN 
A = LINE1 
B = LINE2 
C = 0.0 
ATYPE = 1 

ELSE IF (LINE2.LT. LINE4) THEN 
IF (LINE3.LT. YSLICE (N) ) THEN 
A = YSLICE (N) 

B = LINE3 
C = LINE4 
ATYPE = 4 

ELSE IF (LINE4 .LT. YSLICE (N) ) THEN 
A = LINE4 
B = 0.0 
C = 0.0 
ATYPE = 2 
ELSE 

A = YSLICE (N) 

B = 0.0 
C = 0.0 
ATYPE = 2 
END IF 
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C 


ELSE IF (LINE2 . LT . YSLICE (N) ) THEN 
A = YSLICE (N) 

B = LINE2 
C - 0.0 
ATYPE = 1 


ELSE 

A = 0.0 
B = 0.0 
C = 0.0 
END IF 

THE FRONT NOZZLE ARE 


CLOSER TOGETHER THAN THE REAR NOZZLE. 


ELSE 

IF 


(LINE2.GT.LINE4) THEN 
IF (LINE4 .LT .YSLICE (N) ) THEN 
A = LINE4 
ELSE 

A = YSLICE (N) 

END IF 
B = 0.0 
C = 0.0 

ILS ff F E ( (LINE2.LE.LINE4) .AND. (LINE3.LT. YSLICE (N) ) ) 
A = LINE3 
B = LINE2 
C = 0.0 
ATYPE = 1 

ELSE IF (LINE2.LT. LINE5) THEN 
IF (LINE1 .LT. YSLICE (N) ) THEN 
A = YSLICE (N) 


B = LINE1 
C = LINE5 
ATYPE = 5 

ELSE IF (LINE5 . LT . YSLICE (N) ) THEN 
A = LINE 5 
B = 0.0 
C = 0.0 
ATYPE = 3 


ELSE 

A = YSLICE (N) 
B = 0.0 
C = 0.0 
ATYPE = 3 


THEN 


END IF 

ELSE IF (LINE2. LT. YSLICE (N) ) THEN 
A = YSLICE (N) 

B = LINE2 
C = 0.0 
ATYPE = 1 


ELSE 

A = 0.0 
B = 0.0 
C = 0.0 
END IF 
END IF 

IF (YNOZ (1) . EQ. YNOZ (2) ) THEN 

IF^XSLICE^) .GE.XSPAN) .AND. (XSLICE(N-l) .LT.XSPAN) ) 
$ THEN 
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CALL LINTERP (XSPAN, XSLICE (N) ,XSLICE (N-l) ,YSLICE(N) , 

YSLICE (N-l ) i ytemp) - ytemp 

IF (SPAN (1 ) .LT. YTEMP) SPAN(l) -YTEMP 

IF 3 (MSPAN(l) .LT.A) MSPAN(l) = A 


ELSE 

IF 


SPAN (2) = XSLICE (N) - 


> ) SPAN (3) * XNOZ (1) - 


fVSLICE (N) .EQ.0.0) THEN 
Jf (SPANI2) .LT. XSLICE (N)-XNOZ(2)) 

$ ^ Z (Sp!)N(3).LT.XNOZ(1>-XSLICE<N) 

s XSLICE (N) 

™ , 7, YSLICE (N) .LT.LINE4) .AND. ( (XSLICE (N) -XNOZ (21) .GT. 

5 <N1 1 - GT ' 
s MSPAN ( 3 ) ) ) ) MSPAN (3) - XNOZUI - XSLICE(N) 

END IF 
END IF 

= STS Jf\S^on%o^ain^ P cStM ^Son 1 

c (THE SIDE OF THE AIRCRAFT.) B me. 0.0) THEN 

IF (NOZZLE. GT. 2. AND.A.EQ.YSLIC (K ^ ce(n) ^ le ^ 0 0) TH £^j 

IF CALL^C^SSIN^ XSLICE (N-l ) . YSLICE (N-l) .XSLICE (N). YSLICE (N) , 
S XSLICE (N-l ) . LSPANO. XSLICE (N) .LSPAN.Xtemp, ytemp) 

IF (YSPAN.LT. YTEMP) THEN 
YSPAN = YTEMP 
XSPAN = XTEMP 
END IF 

S?ct F = YSLICE (N) - MLINE2 * XSLICE (N) 

SS LINECRO (KLINE1 , BLINE1 , MLINE2 , BTEST, -temp, ytemp) 

IF ( YTEMP. GT.YTEMPOLD) THEN 
YTEMP OLD = YTEMP 

XSLICE (N) 

YSLICE (N) 


XMSPAN = 
YMSPAN = 
END IF 
END IF 


C 

c 

c 


FOR EACH 
REGION. 
DXX = DX 


DXX 


CALCULATE THE AREA 
TOTAL AREA IN EACH 
IF (DXX. EQ.0.0) 

DXX = ABS(DXX) 

CALL INTEGRA (A, B,C,DXX, SAB, SC) 

IF (ATYPE.EQ.4) THEN 
STOT(l) = STOT(l) 

STOT (2) = STOT (2) 

ELSE IF (ATYPE.EQ.5) 

STOT ( 1 ) = STOT (1 ) 

STOT (3) = STOT (3) 

ELSE 

STOT(ATYPE) = STOT(ATYPE) 
END IF 


and ADD OR SUBTRACT THAT FROM THE 


+ FACT 
+ FACT 
THEN 
+ FACT 
+ FACT 


SAB 

SC 

SAB 

SC 

+ FACT * SAB 


GO TO 30 


C CALCULATE MAXIMUM SPANWISE AND SPANWISE EXTENT OF PLANFORM ON FOUNTAIN 


C AREA 
100 


CENTERLINE FOR 


C 

C 

c 


c 

c 

c 


REGION 1 (THE SIDE OF THE AIRCRAFT.) 

_ _ /MA77TF rT ? AND YMSPAN.NE. 0 . 0) THEN 

S PEBPDis(XSPAN,VSPAN f MLINE2,BLINE2,span(l)) 
SS PEFPDIS (XMSPAN, YMSPAN,MLINE2, BLINE2,mspan (1 ) ) 

END IF 


AND 


CALCULATE 
AREAS 

IF (I FLAG .EQ. 
NOZARE(l) = 
NOZARE (2) = 
ELSE 

NOZARE (1) = 
NOZARE (2) = 
END IF 

IF (TYPE (1) .EQ. 
IF 


SUBTRACT THE AREAS OF THE NOZZLE FROM THE TOTAL 


1) THEN 
RAD (1) **2.0 
RAD (2) ** 2 . 0 


3.1415926 

3.1415926 


F/NUM_ 

'r/num' 


' INTERNAL . ' ) 


NOZARE (1) /4.0 
NOZARE (l)/4.0 


STOT ( 2 ) = STOT (2) 
THEN 

- NOZARE (D/4.0 


- NOZARE (D/4.0 


= STOT(l) - NOZARE (2) / 4 


- NOZARE (2) /4.0 


THEN 

(XNOZ (1) .EQ.XNOZ (2) ) THEN 
STOT (2) = STOT ( 2 ) - NOZARE (1) /4.0 
STOT (3) = STOT (3) - 
ELSE 

STOT ( 1 ) = STOT { 1 ) - 
END IF 

IF (NOZZLE. EQ. 3) THEN 
IF (YNOZ(2) .EQ.0.0) 

ELSE IF (NOZZLE. EQ. 4 
STOT (3) = STOT (3) 

END IF 
END IF 

IF (TYPE (2) .EQ. ’INTERNAL. ') THEN 

IF (XNOZ(l) .NE. XNOZ (2)) STOT(l) 

IF (NOZZLE. EQ. 3) THEN 

IF (YNOZ (1) .EQ.0.0) STOT (2) - STOT (2) 

ELSE IF (NOZZLE. EQ. 4) THEN 

STOT (2) = STOT (2) - NOZARE (2) /4 . 0 
END IF 
END IF 

finish calculations on all abbas to be sent back to calling 

ROUTINE . 

IF (NOZZLE. EQ. 2) THEN 

IF (XNOZ(l) .NE. XNOZ (2)) THEN 
SP1 = STOT ( 1 ) 

SPP1 = 2 * El * MSPAN(l) 

ELS Ip2 = (1.0 - HOLE ( 2 ) ) * 2.0 * STOT(2) 

= (10 — HOLE (3)) * 2.0 * STOT (3) 

Spp 2 - <1.0 - HOLE ( 2 ) ) * 2.0 * El * MSPAN(2) 

SPP3 = (1.0 - HOLE ( 3 ) ) * 2.0 * El * MSPAN(3) 

END IF 
ELSE 

(NOZZLE .EQ. 3 .AND .YNOZ (2) .EQ.0.0) THEN 
HOLE ( 1 ) = HOLE (2) 


IF 


HOLE (2) = HOLE (3) 
HOLE (3) = HOLE ( 1 ) 
END IF 

SP1 = STOT ( 1 ) 

SP2 = (1.0 - HOLE (2)) 
SP3 = (1.0 - HOLE (3)) 


2.0 

2.0 


STOT (2) 
STOT (3) 



E2 * MSP AN (2) 
E4 * MS PAN (3) 


qpp2 = (i.O - HOLE (2) ) * 
S pp3 = (1.0 - HOLE (3) ) * 


2.0 * 
2.0 * 


C 

C 


CALCULATE SPPl 
IF (YMSPAN .EQ 
SPPl =0.0 
ELSE 


0.0) THEN 


XI 

Y1 

X2 

Y2 


XNOZ (1) 
YNOZ (1) 
XNOZ (2) 
YNOZ (2) 


C 

C 


c- 

c 

c 

c 

c 

c 

c 

c 

c 


mmfpaT'J = —1 . 0/MLINE1 

- - - 

SPPl = .5 * (XI Yz + AZ 
$ Y3*X4 - Y4*X1) 

END IF 
END IF 

MAKE FINAL calculations for all spans and mspans. 
tf ( SPAN (1 ) . LT • 0.0) SPAN (1 ) 

SPA^If- U-0 - HOLE (2) ) * SPAN 2 
SPAN (3) = (1.0 - HOLE (3)) * SPAN (3) 

S| = (1.0 - HOLE (2)) * MSPAN 2 

Sis! = d.O : _HOLE_(3))_ : _^Pf_i 3 .L 

As s I gri” t he” cor r e ct ”var i abl e s to the variables from the calling 
routine COPPIE 


Calculate estimated nose configuration 


tdiLUiacv ^ 

SCALE 3 is a percentage measured from the nozzle to the tip of t e 
nose . 

IF (SCALE3 .NE. 1.0 siesg 9 * 9 ^! ^SCALES) + 4.41157 * 

. -•«*“« * <1- - SCALES, - 3 . ♦ 

$ 6.65561 * (1. “ SCALE3) . ) 

ELSE 

SCALE =1.0 
END IF 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Four nozzle configuration 


222 
2 2 
2 

2 

2 

2 

22222 


X X 


X X 


222 
2 2 
2 

2 

2 

2 

22222 


IF (NUM F .EQ. 2 .AND. NUM_R .EQ. 2) THEN 
Half distance between fountain arms 

r\ r\r\ \ T 1 = T.l 
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C Half angles between fountain arms 

IF (THAI .EQ. 9999.) THA_1 «= THETA1 

IF (THA 3 .EQ. 9999.) THA_3 = THETA4 

IF (THA_4 .EQ. 9999.) THA_4 = THETA2 

C Half length of fountain arms 

IF (Y 1 .EQ. 9999.) Y_1 = SPAN(l) 

IF (Y~3 .EQ. 9999.) Y_3 = SPAN{3) * SCALE 3 

IF (Y~4 .EQ. 9999.) Y_4 = SPAN(2) 

C Maximum spanwise extent of planform 

IF (YP 1 .EQ. 9999.) YP_1 = MSPAN(l) 

IF (YP — 3 .EQ. 9999.) YP_3 = MSP AN (3) * SCALE3 

IF (YP~4 .EQ. 9999.) YP_4 = MSPAN (2) 

C Area affected by fountain arm 

IF ( S FA1 .EQ. 9999.) S_FA1 = SP1 

IF (S FA3 .EQ. 9999.) S_FA3 = SP3 * SCALE 

IF (S_FA4 .EQ. 9999.) S_FA4 = SP2 

C Potential area affected by fountain arm 

IF (SP FA1 .EQ. 9999.) SP_FA1 = SPP1 

IF (SP FA3 .EQ. 9999.) SP_FA3 = SPP3 * SCALE 3 

IF (SP_FA4 .EQ. 9999.) SP_FA4 = SPP2 

C ... 

q Three nozzle configuration (One nozzle in front, two m rear) 

C 

C 1 

C 11 

C 11 

C 1 

C 1 

C 1 

c mu 

c 

ELSE IF (NUM_F .EQ. 1 .AND. NUM_R .EQ. 2) THEN 
C 

C Pieces at 4 have been moved to _3 due to hov_ge which when 

C making calculations for a three nozzle configuration uses 3 

C instead of _4 in its calculations no matter which configuration 

C is being used (1 X 2 or 2 X 1) . 

C 

C Half distance between fountain arms 

IF (E_l .EQ. 9999.) E_1 = El 

IF (E_3 .EQ. 9999.) E_3 = E2 

IF (E_4 .EQ. 9999.) E_4 = 0.0 

C Half angles between fountain arms 

IF (THA_1 .EQ. 9999.) THA_1 = THETA1 
IF (THA_3 .EQ. 9999.) THA_3 = THETA2 
IF (THA_4 .EQ. 9999.) THA_4 =0.0 
C Half length of fountain arms 

IF (Y_l .EQ. 9999.) Y_1 = SPAN(l) 

IF (Y_3 .EQ. 9999.) Y_3 = SPAN (2) 

IF ( Y 4 .EQ. 9999.) Y_4 =0.0 

C Maximum spanwise extent of planform 

IF (YP_1 .EQ. 9999.) YP_1 = MSPAN(l) 

IF (YP_3 .EQ. 9999.) YP_3 = MSPAN(2) 

IF (YP_4 .EQ. 9999.) YP_4 =0.0 
C Area affected by fountain arm 

IF ( S_FA1 .EQ. 9999.) S_FA1 = SP1 
IF (S_FA3 .EQ. 9999.) S_FA3 = SP2 
IF (S FA4 .EQ. 9999.) S_FA4 =0.0 


X X 222 

XX 2 2 

XX 2 

X 2 

XX 2 

XX 2 

X X 22222 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Potential area affected by fountain arm 

IF (SP FA1 . EQ. 9999.) SP_FA1 - SPP1 
IF S:?JS .EQ. 9999.) SP FA3 - SPP2 
IF (SP_FA4 .EQ. 9999.) SP_FA4 - 0.0 


Three nozzle configuration (Two nozzles m front, one 


222 
2 2 
2 

2 

2 

2 

22222 


X X 

X x 
X x 
X 

X X 
x X 
x X 


1 

11 
1 1 
1 
1 
1 

11111 


ELSE IF (NUM_F .EQ. 2 .AND. NUMR .EQ. 1) THEN 

Half distance between fountain arms 
IF (E 1 .EQ. 9999.) E_1 = El 

IF (E 3 .EQ. 9999.) E_3 = E2 

IF (E 4 .EQ. 9999.) E_4 =0.0 

Half angles between fountain arms 
IF (THA 1 .EQ. 9999.) THA_1 = THETA1 
IF (THA_3 .EQ. 9999.) THA 3 = ™ETA4 
IF (THA 4 .EQ. 9999.) THA_4 - THETA2 
Half length of fountain arms 
IF (Y 1 .EQ. 9999.) Y_1 = SPAN(l) 

IF (Y~3 .EQ. 9999.) Y_3 = SPAN(2) * SCALE 3 

IF (Y~4 .EQ. 9999.) Y_4 = 0.0 

Maximum spanwise extent of P-^nform 
T r /vp i EO. 9999.) YP 1 = MSPAN(l) 

IF (YP _ 3 ’.EQ. 9999.) YP_3 = MSPAN(2) * SCALE 3 

IF (YP~4 .EQ. 9999.) YP_4 =0.0 

Area affected by fountain arm 

IF (S FA1 .EQ. 9999.) S FA1 - SP1 

5 (S — FA3 .EQ. 9999. ) SlFA3 = SP2 * SCALE 

IF (S FA4 .EQ. 9999.) S_FA4 - 0.0 

Potential area affected by fountain arm 

IF (SP FA1 .EQ. 9999.) SP_FA1 — SPP1 

IF (SP _ FA3 .EQ. 9999.) SP_FA3 = SPP2 * SCALE 3 

IF (SP_FA4 .EQ. 9999.) SP_FA4 - 0.0 

Two nozzle configuration (One nozzle m front, one in rear) 


1 

11 
1 1 
1 
1 
1 

11111 


x X 
X x 
X X 
X 

X X 
X X 
X 


1 

11 

1 

1 

1 

1 


X mil 

ELSE IF (NUM_F .EQ. 1 .AND. NUM_R .EQ. 1) THEN 


Half distance 

between 

fountain arms 

IF 

(E 1 

.EQ. 

9999. ) 

E 

1 = El 

IF 

(E 3 

.EQ. 

9999. ) 

E 

”3 = 0.0 

IF 

(E 4 

• EQ. 

9999.) 

e" 

'4 = 0.0 



o o 


129 


C Half angles between fountain arms 

IF (THA 1 .EQ. 9999.) THA_1 = THETA1 
IF (THA 3 .EQ. 9999.) THA_3 = 0.0 
IF (THA_4 .EQ. 9999.) THA_4 =0.0 
C Half length of fountain arms 

IF (Y 1 .EQ. 9999.) Y_1 = SPAN(l) 

IF (Y 3 .EQ. 9999.) Y_3 = 0.0 
IF (Y~4 .EQ. 9999.) Y_4 =0.0 
C Maximum spanwise extent of planform 

IF (YP 1 .EQ. 9999.) YP_1 = MSPAN(l) 

IF <YP_3 .EQ. 9999.) YP_3 =0.0 
IF (YP_4 .EQ. 9999.) YP_4 =0.0 
C Area affected by fountain arm 

IF ( S F A1 .EQ. 9999.) S_FA1 = 2.0 * SP1 
IF (S_FA3 .EQ. 9999.) S_FA3 = 0.0 
IF (S_FA4 .EQ. 9999.) S_FA4 =0.0 
C Potential area affected by fountain arm 

IF ( SP_FA1 .EQ. 9999.) SP_FA1 = 2.0 * SPP1 
IF (SP_FA3 .EQ. 9999.) SP_FA3 =0.0 
IF (SP_FA4 .EQ. 9999.) SP_FA4 =0.0 
C 

C Two nozzle configuration (Two nozzles in front) 

C 

C 222 X X 

C 2 2 X X 

C 2 X X 

C 2 X 

C 2 XX 

C 2 X X 

C 22222 X X 

C 

ELSE IF (NUM_F .EQ. 2 .AND. NUM_R .EQ. 0) THEN 

Half distance between fountain arms 
IF (E_l .EQ. 9999.) E_1 = El 

IF (E_3 .EQ. 9999.) E_3 = 0.0 

IF (E_4 .EQ. 9999.) E_4 = 0.0 

C Half angles between fountain arms 

IF (THA_1 .EQ. 9999.) THA_1 = THETA1 
IF (THA_3 .EQ. 9999.) THA_3 =0.0 
IF (THA_4 .EQ. 9999.) THA_4 = 0.0 
C Half length of fountain arms 

IF (Y_l .EQ. 9999.) Y_1 = (SPAN (2) + SPAN (3) * SCALE 3) / 2.0 
IF (Y_3 .EQ. 9999.) Y_3 =0.0 
IF (Y_4 .EQ. 9999.) Y_4 =0.0 
C Maximum spanwise extent of planform 

IF (YP 1 .EQ. 9999.) YP_1 = (MSPAN(2) + MSPAN(3) * SCALE 3) 

$ / 2.0 
IF (YP_3 .EQ. 9999.) YP_3 =0.0 
IF (YP_4 .EQ. 9999.) YP_4 = 0.0 
C Area affected by fountain arm 

IF (S_FA1 .EQ. 9999.) S_FA1 = (SP2 + SP3 * SCALE) / 2.0 
IF (S_FA3 .EQ. 9999.) S_FA3 =0.0 
IF (S_FA4 .EQ. 9999.) S_FA4 =0.0 
C Potential area affected by fountain arm 

IF (SP_FA1 .EQ. 9999.) SP_FA1 = (SPP2 + SPP3 * SCALE 3) / 2.0 

IF (SP_FA3 .EQ. 9999.) SP_FA3 = 0.0 

IF (SP FA4 .EQ. 9999.) SP_FA4 = 0.0 


000 
0 00 
0 0 
0 0 0 
0 0 
00 0 
000 
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END IF 


C Core coordinates 
X CORE = XCORE 

Y_CORE = YCORE 

C Print out everything when necessary 

IF (IFLAG.EQ.l) THEN q-r 0 T(3> 

C ™ (6 6 40) ' xSS, ( icoS?SPl! SP 2 ; SP3, SPPl^SPM. SPP3, SPAN (1) , 

$ SPAN (2) SPAN (3) / MSPAN(l), MSPAN ( 2 ^ ^PAN ( 3 ) 

WRITE (6,*) ' XCORE YCORE 

WRITE (6,*) XCORE, YCORE M2 ' ' M3 ' 

WRITE (6,*) ' Ml , 

MUTE (6,*> Ml, M2, M3 THETA2 ' , ' THETA3 1 , 

WRITE (6, * ) , 

c i THETA ^ * 

WRITE (6,-) THETA1, THETA2, THETAS, THETA4 
WRITE (6,*) ' El E2 , 

$ ' E4 ' 

F S ax*’-THEk E ^E E A TOTAL OE Ml,’ NOZZLE ON THIS 

1 ,A15, ' JN THE ',A6 - WHICH -AS.- ',A9, 

FORMAT (IX, -POINT MX,- XSLICEMX, Y SLICE ^1X, 

^O^Tiix'-STO^'^'^EiEX.-STOT.Z) = ■ ,F6. 2, 2X, -STOT (3. - 

$ -MSPAN2 = -,F6.2,5X, ’MSPAN3 = ',F6.2) 

END IF 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


22 

23 

32 

33 
35 

40 


500 RETURN 
END 


C 

C 

c 

c 

c 


Integra 

.HlflSS^^^fTS'^-^^-^NNEED BT TWO LINES 

,US ANOTHER ONE AND ZERO. 

AREA AB = (A - B) DX 
AREA - C = (C - 0) * DX 


REAL A, B, C, DX, AREA_AB, AREA_C 

AREA_AB = (A - B) * DX 

AREA_C = C * DX 

RETURN 

END 


Diabar 


Subroutine 



DIABAR (Iflag, Ierror, X, Y, NPTS, xctr^nangle^dbar )_ 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ACRONYM: DIABAR since DBAR is some reserved function. 

PURPOSE * DBAR is the Angular Mean Diameter of a Planform. This 
PURPOSE. DBAR as c ^ lculate DBAR and areas forward and aft of the 

DBAR point. An input file containing planform coordinates 
(in a clockwise direction starting from the n°se) is 
required along with the x-position from which to calculate 

DBAR. 

PA NA>ffi TERS * TYPE I/O UNITS DESCRIPTION 


c 

C IFLAG 
C 
C 
C 

c 

c 

c I ERROR 

C 

C 

C 

C 

C 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c X (500) 

c 

c 

c 

c 

C Y (500) 
C NPTS 
C 

C XCTR 

C 

C 

c NANGLE 

C 

C 

c DBAR 
C 

c FRAREA 
C 


R 

R 

I 

R 

I 

R 

R 


0 


feet 

feet 

I feet 

I 

0 feet 
0 ft2 


User interaction flag: 

1 = user interaction (can run as 

a stand alone routine, 
otherwise = no user interaction 
(all inputs from the calling 
routine) . 

Error flag returned by DIABAR. If 
IFLAG = 1, then an explanation of 
the problem is given at the time of 
the error. 

0 = no errors. 

2 . = values of dbar & area 
probably bad. 

2 = moved x-position of dbar 

point/nozzle point to 
geometric center. 

3 = input NANGLE was 

inappropriate (set to 
absolute value or 1000) . 

4 = Points entered in wrong 

direction, routine aborted. 
Must enter points from left 
to right. 

5 = 1st and last points not on 

x-axis, routine aborted. 

6 = the sweeping ray intersected 

more than 4 points or zero 
points; values returned may 
be bad. 

X-values of the planform (limit = 500) . 
Values must start from the left and 
procede counterclockwise for one half of 
the aircraft (the aircraft is assumed 
symmetrical) . 

Y-values of the planform (limit = 500) . 
The number of points read in from the 
planform data file. 

The x-coordinate of the point at 
which DBAR and/or areas are to be 
calculated. 

Number of angle divisions to use in 
the calculation of DBAR and/or 
areas . 

Angular Mean Diameter of the 
planform. 

The planform area in front (to the 
left) of the XCTR point. 
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ft2 


c bkarea k 

c 

c LOCAL VARIABLES (in addition 
C NAME TYPE UNITS 


The planform area behind (to the 
right) of the XCTR point, 
to the above parameters) : 

DESCRIPTION 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ALPHA 

AREA1 

ARM1 

ARM2 

ARM3 

ARM4 

DELTA 

GEOCTR 


I 

IND 


R 

R 

R 

R 

R 

R 

R 


I 

I 


radians 

ft2 

ft2 

ft2 

ft2 

ft2 

radians 

feet 


c 

IND2 

I 

— 

c 

c 

c 

IND3 

I 



c 

c 

c 

c 

NINCEP 

I 


c 

c 

NINMAR 

I 

— 

c 

c 

PI 

R 

— 

c 

R 

R 

feet 

c 

c 

RINCEP (5) 

R 

feet 

c 

c 

RINMR1-4 

R 

feet 

c 

RLAST 

R 

feet 

c 

SLOPE (500) 

R 

— 

c 

c 

SUBST 

R 

— 

c 

c 

SUMR 

R 

feet 

c 

c 

TEMP 

R 

— 

c 

THETA (500) 

R 

radians 

c 

c 

tlarea 

R 

ft2 

c 

TRANS 

R 

— 

c 

c 

YESNO 

C*3 

— 


Current sweep angle. 

Temperary variable for the total area. 
Partial area for the intersection point 
in consideration. 

See ARM1. 

See ARM1 . 

The step' angle (PI/NANGLE) for the DBAR 
and area calculations. . . 

The geometric center (average x-yaiue) 
based on the first and last points of the 
planform data file. 

Temperary counter variable. 

XCTR position flag: 

0 = XCTR inside planform. „„„ 

1 = XCTR behind planform and will cause 

frarea to equal tlarea and bkarea 
to equal 0 for output . , . . 

2 = XCTR forward of planform and wi 

cause bkarea to equal tlarea and 
frarea to equal 0 for output. 

Flag for setting XCTR = GEOCTR: 

0 = Leave XCTR as is. 

1 = Set XCTR = GEOCTR _ 

Trouble message flag < fo * IFIA £ T ' H 

0 = No trouble in NINMAR or NINCEP. 

1 = NINMAR = 0, and/or 

NINCEP > 4 or < 1 (I ERROR - 6) . 

The number of intercepts for a particluar 

radius. 

Last (previous) number of line 
intersections (goes with LASTR) . 

Current total radius point determined 

from RINCEPU-4). . _ .. 

The radius at the intersection of the 
ray and line in question. 

Last radii points at intercepts 1-4. 

Last total radius point. 

The slopes of the lines between data 

Temperary value for the calculation of 

the radii. . _ „ „ .. . 

The summation of the different ra 

values . 

Temporary variable (used in sort loops) . 
The angle, theta, corresponding to each 
x,y data set. 

The total planform area. 

Temperary value for the calculation Oj. 

the radii. 

Temp, variable for run again questions 
(for IFLAG = 1) . 
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c 

C COMMONS USED: 

C None . 

C FILES USED: 

C LOGICAL UNIT I/O DESCRIPTION 

C 71 X-Y data file for planform. 

C NON-STANDARD CODE: 

C None . 

C NOTES: Can be run as a stand alone routine if called with IFLAG 
C set = 1 . 

C CALLED BY: 

C NAME DESCRIPTION 

C FINVAR Calculates final variables which are to be used in the 

C PIE module. 

C SUBROUTINES CALLED: 

C NAME DESCRIPTION 

C None . 

C ENVIRONMENT: 

C VAX, VMS, FORTRAN 

C AUTHOR (S) : 

C Beth Kader, Student, NASA Ames 

C Kipp E. Howard, Grad Student, San Luis Obispo, NASA Ames Moffett 
C REVISION HISTORY: 

C DATE INITIALS & DESCRIPTION 

C 07/22/88 BK — Routine in working order. 

C 08/03/88 DAW — Added more comments to this routine. 

C 08/16/88 DAW — Still more comments/clean-up. 

C 04/16/90 KEH — Adaped routine to work with PIE module 

C 07/14/91 KEH — Eliminated extraneous spacing and fixed comments 



REAL ALPHA, AREA1, ARM1, ARM2, ARM 3, ARM4, BKAREA, DBAR, DELTA, 

$ FRAREA, GEOCTR, PI, R, RINCEP(5), RINMAR1, RINMAR2, RINMAR3, 

$ RINMAR4, RLAST, SLOPE (500), SUBST, SUMR, TEMP, THETA (500), 

$ TLAREA, TRANS, X(500), XCTR, Y(500) 

INTEGER IND, IND2, IND3, I ERROR, IFLAG, NANGLE, NINCEP, NINMAR, 

$ NPTS 
C 

character* 3 yesno 
character* 50 userfi 
c 

c I/O with the user (IFLAG = 1) . 

if (iflag .eq. 1) then 
write (6,*) 1 ' 

write (6, *) 'This program is designed to work only for symmetrical' 
write (6, *) 'airplanes — which are probably the only kind of' 
write (6, *) 'airplanes that you re working with, but I thought' 
write (6, *) 'that I d tell you anyway.' 
write (6,*) ' ' 

write (6,*) 'Enter coordinates for your aircraft in a clockwise 
Sdirection sequentially from the left (the nose of the aircraft) . ' 
end if 

3 if (iflag .eq. 1) then 
write (6,*) ' ' 

write (6,*) 'Input filename for X and Y coordinates:' 
read(*,5) userfi 
5 format (a50) 

endif 
c 
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c 

6 


8 


9 


c 

c 


c 

c 


Set /Reset indicators, 
ind = 0 
ind2 = 0 
ind3 = 0 

if (iflag .eq. 1) then 

write (6, ) , rH visions would you like in the half 

, riS fo- a n d the t-to***^ 

| Scul«ed“s i ^nl?"f°t».e an gl as entered here.' 
read*, nangle 
endif 

ierror = 0 

if (nangle . It . 1 ) then 
if (iflag. eq.O) then 
nangle = aJos (nangle) 
ierror = 3 

if (nangle. It. 1) then 
nangle * 1000 
endif 
else 

write (6, *) 
write (6, * ) 
go to 6 
endif 
endif 

if (iflag. eq.l) then 

wri?e i (6 e 'l' "input the x-coordlnate of the point at which you wish 
$ “-Bar to be calculated from or the x-coordinate of the norrle 

$ location for an area value.’ 
read*, xctr 
endif 

if (iflag. eq.l) then 
write(6,*) ’ 1 

pndif 


’Get real! (Just can not let you do it Jeffrey.) 


Initialize variables. 

pi = 3.14159265 

delta = pi /nangle 

dbar = 0.0 

sumr = 0.0 

areal =0.0 

tlarea =0.0 

frarea =0.0 

bkarea = 0.0 

arml = 0.0 

arm2 =0.0 

arm3 = 0.0 

arm 4 =0.0 


Access user data and calculate angles and slopes. 


IF (IFLAG .EQ. 1) THEN 

open (unit = 7, name = userfi, type 
read (7,*) x(l), y(l) 
x(l) = x(l) 

1 = 2 

xead (7, *, end = 12) x(I), y(l) 


'old 1 ) 


10 
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12 


c 

c 

c 


c 

c 


c 

c 


c 

c 


20 


c 

c 


x(I) = X* 1 ) 

1 = 1 + 1 
goto 10 
npts = 1-1 

end if 

geoctr = (x (1) +x (npts) ) /2 . 0 

if ^ 

if (ind2.eq.l) xctr = geoctr 0 0 . 

Move input x-values to place XCTR at U,U. 
x(l) - x(l) - xctr 

Find theta' s . 
do 20 1 = 2 , npts 

x (I) = x(I) — xctr 

if (abs(x(I)).le. 0.0001) then 

theta (I) - pi/2 
else if (x(I) .lt.0.0) then 

theta (I) = abs (atan (y(I)/x(I) )> 
else if (x(I) .gt.0.0) then m 

theta (I) = pi - abs (atan (y(I)/x(I))) 

endif 

i£ «“e(6?2ranSe n to coordinate - '.thetad, -180.0/pi 
endif 

Find slopes. 

if (x(I) .eq.x(I-l)) then 

slope (I) = 9999.9 infinite slope (vertical 

slope of 9999.9 signifies an infinite siop 

line) . 

6136 sloped) = (y(I)-yd-l))/< x < I)-x(I-1)) 
endif 
continue 

catching faulty input so as to avoid inaccurate data if possible, 
npts = 1-1 

if (x(l) -gt.x(npts) ) then 

if (iflag.eq.l) then Please enter coordinates from left 

write (6,*) 'Error m data. Please entej. 

$to right . ' 

go to 3 
else 

ierror = 4 
go to 500 
endif 
else 

theta (1) = 0 

if^y (1) .ne.y (npts) .or .y (1) .ne.O.or.y (npts) .ne.O) then 

if (iflag.eq.D then follow the Erections. Half an 

• d'td x-axis i e both your first and last y values 

$ airplane on the x axis. i* j 

$ should be 0. Thank you. 

go to 3 
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$ 

$ 


else 

ierror = 5 
go to 500 
endif 
endif 

if (x (npts) . le . 0 . or . x (1 ) . ge . 0) then 

if (iflag.eq. 0) then 
ierror = 2 

if (x (npts) . It . 0) then 
ind = 1 
else 

ind = 2 
endif 
ind2 = 1 
rewind (7) 
goto 9 
else 

write (6^*) 'Are you sure that you want your point outside of 
$ the aircraft (or at the very edge)?' 
read (*,1000) yesno 
if (yesno (1 : 1) .eq. ' y ' ) then 

write (6,*) 1 1 , . , 

write (6,*) ’With this value D-Bar is inaccurate, 
write (6,*) 'Along with the area values. An accurate 
area measurement can be taken at the edge o f the i °r 
„ inside. While an accurate D-Bar measurement should be taken from 
$ the center of gravity or thereabouts.’ 
else 

write (6^ * ) ’Would you like your point to calculate the 
S total area from the geometric center ?This is probably the bes 
$ option if your initial point is outside the aircraft, since 

$ D-Bar is invalid. 1 

read (*,1000) yesno 
if (yesnc(l:l) .eq. ’y 1 ) then 
if (x (npts) .It. 0) then 
ind = 1 
else 

ind = 2 
endif 
ind2 = 1 
rewind (7) 
go to 9 
else 

rewind (7) 
goto 8 
endif 
endif 
endif 
endif 

if (iflag.eq. 1) then 
write (6,*) * 1 

write (6, * ) npts, 
endif 


data points received from file. 


c 

c 


Determine intersections/ # of int 1 s/ radii, 
alpha = 0.0 
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trans = 0.0 
subst = 0.0 
r =0.0 
ninmar = 1 
lastr = abs (x (1) ) 
do 70 I = 1, nangle 
nincep = 0 

alpha = alpha + delta 
if (alpha. grt. pi) then 
alpha = pi 
endif 

do 80 J = 1, npts-1 

$ (theta^J) .It. alpha. and. alpha. le. theta (J+l) . or. theta (J+l) .le. alpha 
$ . and. alpha . It . theta (J) ) then 
nincep = nincep + 1 
if (slope (J+l) .ge. 9999.0) then 


Vertical line! 

rincep (nincep) = abs (x ( j) /cos (alpha) ) 
;e 

if ( slope ( J+l ). aq . “tan (alpha) ) then 


c 

c 


c 


80 

c 

c 


$ 

$ 


The intersection is a line (instead of a point), 
rincep (nincep) = abs((x(J) +x (J+l) ) /2*cos (alpha) ) 
if (iflag.eq.l) then 

write (6, *) ' oooooh, fun stuff! 

Yes, I meant to leave that comment in. 

endif 

else 

if ((pi/2.0 - 0 . 01 ) .le. alpha. and. alpha. le. (pi/2.0 

+ 0.01) ) then 

rincep (nincep) = abs (—slope (J+l) *x (J) +y (J) 
else 

if (alpha. It. pi /2.0) then 

trans = (—slope (J+l) *x (J) + 

y (J) )/ (-tan (alpha) -slope (J+l ) ) 

trans = (-slope (J+l) *x (J) + 

y (j) ) / (abs (tan (alpha) ) -slope (J+l) ) 

endif 

rincep (nincep) — abs (trans/cos (alpha) ) 
endif 
endif 
endif 
endif 
continue 


Determining # of intercepts at each angle and the radius thereof 
if (nincep. eq.l) then 
r = abs (rincep (1) ) 

areal = ( (rlast+r) / 2 . 0 ) **2 . 0*pi/nangle 

e 1 se i f 

$ (nincep. eq. 2. and. rincep (1) .le. (rincep(2)+0.01) .and. (rincep(2)- 
$ 0.01) .le.rincep(l) ) then 
r = abs (rincep (1 ) ) 

areal = ( (rlast+r) / 2 . 0 ) **2 . 0*pi/nangle 

else if (nincep. eq. 2. and. rincep(l) .ne. rincep (2) ) then 
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r = abs (rincep (2) - rincep(l)) 

arml = abs ( ( (rincep (1 ) + rinmrl) ) /2.0)+*2.0*pi/nangle 
arm2 = abs (( (rincep (2) + rinmr 2 ) /2 . 0) ) **2 . O+pi/nangle 
areal = abs(arm2 - arml) 
else if (nincep.eq. 3) then 

Sort radii values (three intersection points) . 
do 90 K = 1,2 

do 100 L = k+1,3 

if (rincep (K) .gt. rincep (L) ) then 
temp = rincep (L) 
rincep (L) = rincep (K) 
rincep (K) = temp 
endif 

100 continue 

90 continue 

if (rincep (1 ) .eq. rincep (2) ) then 
r = abs (rincep (3) ) 

areal = ( (rlast+r) /2 . 0) **2 . 0*pi/nangle 
else 

r = abs (rincep (1) + rincep (3) - rincep (2)) 
if (ninmar.eq.l.or.ninmar.eq.2) then 

areal = ( (rlast+r) /2 . 0) **2 . 0*pi/nangle 
else if (ninmar .eq. 3) then 

arml = abs (( (rincep (1 ) + rinmrl) ) /2.0) **2. 0*pi/nangle 
arm2 = abs (( (rincep (2) + rinmr2) /2. 0) ) **2. 0*pi/nangle 
arm3 = abs (( (rincep (3) + rinmr3) /2. 0) ) **2. 0*pi/nangle 
areal = arml - arm2 + arm3 
else if (ninmar .eq. 4) then 

arml = abs (( (rincep (1) + rinmrl) ) /2. 0) **2.0*pi/nangle 
arm2 = abs (( (rincep (2) + rinmr3) /2.0) ) **2.0*pi/nangle 
arm3 = abs (( (rincep (3) + rinmr4) /2.0) )**2.0*pi/nangle 
areal = arml - arm2 + arm3 
else 

areal = ( (rlast+r) /2. 0) **2. 0*pi/nangle 
endif 
endif 
else 

if (nincep.eq. 4) then 

: Sort radii values (four intersection points) . 

do 110 K = 1,3 

do 120 L = K+1,4 

if (rincep (K) .gt. rincep (L) ) then 
temp = rincep (L) 
rincep (L) = rincep (K) 
rincep (K) = temp 
endif 

120 continue 

110 continue 

if (rincep (1) .eq. rincep (2) .and. rincep (3) .eq.rincep(4) ) then 
r = abs (rincep (3) ) 

areal = ( (rlast+r) /2. 0) **2. 0*pi/nangle 
else if (rincep (1 ). eq. rincep (2) ) then 

r = abs (rincep (1) + rincep (4) - rincep (3)) 
if (ninmar .eq. 4) then 

arml = abs (( (rincep (1) + rinmrl) ) /2.0) **2 . 0*pi/nangle 
arm3 = abs (( (rincep (3) + rinmr3) /2 . 0) ) ** 2 . 0*pi/nangle 
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c 

c 


c 

c 


c 

c 

c 


arm4 = abs << (rincep (4) + rinmr4 ) /2 . 0) ) ** 
areal = arml - arm3 + arm4 
else if (ninmar .eq. 3) then 

arml = abs ( ( (rincep (1) + rinmrl) ) /2.0)** 
arm3 = abs (( (rincep (3) + rinmr2) /2 . 0) ) ** 
arm4 = abs (( (rincep (4) + rinmr3) /2 . 0) ) ** 
areal = arml - arm3 + arm4 
else if (ninmar. eq. 2. or. ninmar. eq.l) then 
areal = ( (rlast+r) /2 . 0) **2 . 0*pi/nangle 

else 

ind3 = 1 

r = abs (rincep (1) ) 

areal = ( (rlast+r) /2 . 0) **2 . 0*pi/nangle 
endif 
endif 
endif 
endif 

sumr = sumr + r 


2 . 0*pi/nangle 


2 . 0*pi/nangle 
2 . 0*pi/nangle 
2. O^pi/nangle 


Calculate the total area of the aircraft (or planform) . 
tlarea = areal + tlarea 
if (alpha . le . pi/2 . 0) then 
frarea = areal + frarea 
else 

bkarea = areal + bkarea 
endif 


Resetting for next go-around. 
rlast = r 
ninmar = nincep 
if (nincep. eq. 4) then 
go to 300 

else if (nincep. eq. 3) then 
go to 310 

else if (nincep. eq. 2) then 
go to 320 

else if (nincep .eq. 1) then 
go to 330 
else 


Blow Up! 

NINCEP is not equal to 1,2,3, or 4 
if (nincep. eq.O .and. iflag.eq.l) then 
write (6, *) ’trouble* 

else if (nincep. gt. 4 .and. iflag.eq.l) then 
write (6,*) 'more trouble 1 
else if (if lag .eq. 1) then 

write (6,*) 'this statement should never print up* 

endif 
ind3 = 1 
ierror = 6 
endif 


300 rinmr4 = rincep (4) 
310 rinmr3 = rincep (3) 
320 rinmr2 = rincep (2) 
330 rinmrl = rincep (1) 


c 
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c 

c 


70 continue 

Warn user in case of possible error, 
if ( ind3 . ea . 1 . and. if lag . eq . 1 ) then 

write (6?* ) ’Possible error in D-Bar calculation from odd 

$ airplane configurations or irregular “ nter 

$ point. Try evaluation again except with a different 
$ number of angles this time.' 
endif 


c 

c 


D-Bar calculation, 
dbar = 2*sumr/nangle 
if (iflag.eq.l) then 
write (6,*) 1 ' 

write (6,*) ’D-Bar =',dbar 
write (6,*) ’ ' 

endif 

if (ind.eq.l) then 
frarea = tlarea 
bkarea = 0.0 
else if (ind.eq.2) then 
bkarea = tlarea 


1000 


500 


frarea = 0.0 
endif 

if (iflag.eq.l) then 

write (6,*) 'Total aircraft area = 
write (6,*) 'Front aircraft area =' 
write (6,*) 'Back aircraft area =', 
write(6,*) ' 1 

write (6,*) 'Would you like to use 
read (*,1000) yesno 
if (yesno (1 : 1) .eq. 'y' ) then 
rewind (7) 
goto 6 
else 

close (7) 
endif 

write (6,*) 'Would you like to use 
read (*,1000) yesno 
format (a3) 

if (yesno (1 : 1) .eq. 'y' ) then 
goto 3 
endif 
endif 

if (ind3.eq.l) then 
ierror = 6 
endif 
close (7) 
return 
end 


, tlarea 
, frarea 
bkarea 

the same file again? 


a different file?' 


t 


Hcall 

SUBROUTINE HCALL 
ACRONYM: Hover CALLing routine 

PURPOSE: The purpose of HCALL is to set up all the correct variables 
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r based on the configuration, that are to be sent to the 

r HOV GE routine. Another reason for this subroutine is a 

r subloutines that need to be called have variables with the 

r Sme name which need to be kept separate when using common 

r KTcks to pass variables back and forth between routines, 

c LOCAL VARIABLES (in addition to the above parameters) : 

C NAME TYPE I/O UNITS DESCRIPTION 

C <iist of local variables in routine> 

C GLOBAL VARIABLES (in addition to the above parameters and local vars) : 



C FIGPIE Common Block 

C NAME TYPE I/O UNITS DESCRIPTION 

r r"r ~R I Ft Width of Body 

r r'wb R I Ft Width of Wing-Body 

r DB B R I Ft Dbar of Body 

r mfwR R I Ft Dbar of Wing-Body 

p nR~FR R I Ft Effective Diameter of Front £ Rear 

C E T R I Ft Half distance between adjacent 

r — jets (1) 

p _ R I Ft Half distance between adjacent 

r — jets (3) 

p p * R i Ft Half distance between adjacent 

~ - jets (4) 

r KR R I Body contour factor 

r l wb R I Ft Length of Wing-Body 

c num I I Ft Total NUMber of jets 

r PER FR R I Ft Total perimeter of ^ets 

r P p v- TD R i Ratio of perimeter enclosed by lids 

C PR _ FR R I Jet Pressure Ratio for all jets 

r S B R I Sq Ft Area of Body 

R _ FAi R I Sq Ft Area affected by fountain arm 1 

R I Sq Ft Area affected by fountain arm (3) 

C S — FA4 R I Sq Ft Area affected by fountain arm (4) 

r <Ter R I Sq Ft Total jet exit area 

p R I Sq Ft Area enclosed by Jet Pattern 

c s _ LID R I Sq Ft Area enclosed by LIDS 

r q — wb R I Sq Ft Area of Wing-Body 

C SP FA1 R I Sq Ft Potential area affected by fountain 

r — arm (1) 

C SP FA3 R I Sq Ft Potential area affected by fountain 

r — arm (3) 

c SP FA4 R I Sq Ft Potential area affected by fountain 

r — arm (4) 

c S p jp R I Sq Ft Actual surface area within area 

_ — enclosed by nozzles 

P qpT y F R I Ft SPLaY angle of Front jet 

p tha T R I deg Half angle between jets (1) 

r tha~ 3 R I deg Half angle between jets (3) 

r tha _ 4 R I deg Half angle between jets (4) 

C WL JP R F Width to Lenght ratio of Jet 

p — Pattern 

p y pc r I Ft Distance between Front £ Rear jets 

C XCA CG R I Ft Distance of center of area ahead of 

P y i~ r I Ft Spanwise extent of planform on 

p — fountain arm (1) center line. 
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c 

Y 3 

R 

I 

Ft 

c 





c 

Y 4 

R 

I 

Ft 

c 





c 

Y F 

R 

I 

Ft 

c 

Y R 

R 

I 

Ft 

c 

YB F 

R 

I 

Ft 

c 





c 

YP 1 

R 

I 

Ft 

c 

YP 3 

R 

I 

Ft 

c 

YP 4 

R 

I 

Ft 

c 

YWB F 

R 

I 

Ft 

c 





c 


R 

I 

Ft 

c - 





C HOVPIE Common Block 


c 

NAME 

TYPE 

I/O 

UNITS 

c 


— 

— 

i — — — — — 

c 

AJ 

R 

I 

Sq Ft 

c 

BFl 

R 

I 

Ft 

c 

BF3 

R 

I 

Ft 

c 

BF4 

R 

I 

Ft 

c 

BFP1 

R 

I 

Ft 

c 





c 

BFP3 

R 

I 

Ft 

c 





c 

BFP4 

R 

I 

Ft 

c 





c 

DB 

R 

I 

Ft 

c 

DC 

R 

I 

Ft 

c 

DE 

R 

I 

Ft 

c 

DH 

R 

I 

Ft 

c 

E 

R 

I 

Ft 

c 





c 

HEIGHT 

R 

I 

Ft 

c 





c 

HW 

R 

I 

Ft 

c 





c 





c 

KRB 

R 

I 

Ft 

c 

L 

R 

I 

Ft 

c 

NJETS 

I 

I 

— 

c 

PER 

R 

I 

Ft 

c 

PP 

R 

I 

— 

c 

PR 

R 

I 

— 

c 

SB 

R 

I 

Sq Ft 

c 

SC 

R 

I 

Sq Ft 

c 

SCP 

R 

I 

Sq Ft 

c 





c 

SFA1 

R 

I 

Sq Ft 

c 

SFA3 

R 

I 

Sq Ft 

c 

SFA4 

R 

I 

Sq Ft 

c 

SFA1P 

R 

I 

Sq Ft 

c 





c 

SFA3P 

R 

I 

Sq Ft 

c 





c 

SFA4P 

R 

I 

Sq Ft 


C 


Spanwise extent of planform on 
fountain arm (3) center line. 
Spanwise extent of planform on 
fountain arm (4) center line. 
Distance between Front jets 
Distance between Rear jets 
Lateral distance from Body to Front 
jets (for external jets) 

Max spanwise extent of planform (1) 
Max spanwise extent of planform (3) 
Max spanwise extent of planform (4) 
Lateral distance from Wingbody to 
Front jets (for external jets) 
height of wing above nozzle 


DESCRIPTION 


Total jet exit area. 

Half length of fountain arm (1) . 

Half length of fountain arm (3) . 

Half length of fountain arm (4) . 
Maximum spanwise extent of fountain 
arm (1) . 

Maximum spanwise extent of fountain 
arm (3) . 

Maximum spanwise extent of fountain 
arm (4) . 

Body D bar. 

Configuration D bar . 

Equivalent diameter of jets. 

Delta height of wing. 

Length to width ratio of jet 
pattern. 

Altitude at which calculations are 
to be made. 

Half width of body for jets outside 
outside of body, else use half 
distance between adjacent jets. 

Body contour factor 
Length of configuration. 

Total number of jet on config. 

Total perimeter of jets (all jets) 
Fraction of lid perimeter enclosed 
Jet pressure ratio. 

Planform area of body . 

Area enclosed by jet pattern. 

Actual surface area inside jet 
pattern. 

Area affected by fountain ares(l) . 
Area affected by fountain ares (3) . 
Area affected by fountain ares (4) . 
Potential surface area between 
jets (1) 

Potential surface area between 
jets (3) 

Potential surface area between 
jets (4) 
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c 

SL 

R 

I 

Sq Ft 

c 

SP 

R 

I 

Sq Ft 

c 

SPLAY 

R 

I 

Deg 

c 

THAI 

R 

I 

Deg 

c 

THA3 

R 

I 

Deg 

c 

THA4 

R 

I 

Deg 

c 

WB 

R 

I 

Ft 

c 

WC 

R 

I 

Ft 

c 

XI 

R 

I 

Ft 

c 





c 

X3 

R 

I 

Ft 

c 





c 

X4 

R 

I 

Ft 

c 





c 

XCA 

R 

I 

Ft 

c 

YF 

R 

I 

Ft 

c 

YR 

R 

I 

Ft 

c 





c 

RESPIE Common Block 


c 

NAME 

TYPE 

I/O 

UNITS 

c 

c 

H 

I 

0 

— 

c 

HT (500) 

R 

0 

Ft 

c 

FILES USED 

; 



c 

LOGICAL 

UNIT 

I/O 

descrip: 


Area enclosed by lids. 

Planform area of configuration 
Front jet splay angle. 

Half angles between jets (1) . 

Half angles between jets (3) . 

Half angles between jets (4) . 

Width of body. 

Width of configuration. 

Half distance between adjacent 
jets (1) . 

Half distance between adjacent 
jets (3) . 

Half distance between adjacent 
jets (4) . 

Distance center of area ahead or CG 
Distance between front jets. 
Distance between rear jets. 


DESCRIPTION 


Height number counter 
Actual height value 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


(none) 

COMMONS 

NAME 


USED: 


DESCRIPTION 


FIGPIE 


HOVPIE 


RESPIE 


CALLED BY: 
NAME 


conFIGuration for Power Induced Effects - Contains al 
variables needed to define the configuration and other 

parameters of the aircraft. _ , 

HOVer variables for Power Induced Effects - Contains 
variables which are sent to the HOV_GE subroutine. 
RESults from all POwer Induced Effects subroutines 
Contains results from each subroutine along with 
variables for height, velocity, jet defelction angle, 
and angle of attack and their counters. 

DESCRIPTION 


COPPIE 

HOV_GE 

ROUTINES 

NAME 


Controls execution and coordination of Power Induced 
Effects Module 

Calculates hover lift increments for OGE and GE 
suckdown, and fountain effects 
CALLED: 

DESCRIPTION 


HOV_GE 

NOTES: None. 
REFERENCES : 

1 ) None . 
ENVIRONMENT : 

FORTRAN 77, VAX 
NON-STANDARD CODE: 


Calculates hover lift increments for OGE and GE 
suckdown, and fountain effects 


6800, VAX 11/785, SGI IRIS 4D series. 
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C 
C 

c 
c 
c 
c 
c 

c 


Kipp's. Howard (KEH) , Cal Poly San Lois Obispo, NASA Ames Moffett 
REVISION HISTORY: 

DATE INITIALS £ DESCRIPTION , 

04/25/90 KEH — Completed initial coding and debugging 
07/13/91 KEH — Eliminated extraneous spacing a nd f ix ed comm ent s 


tinclude "figpie.inc" 
# include "hovpie.inc" 
# include "respie . inc" 


C Assign local HOV_GE variables to their respective global configuration 

C ^sSrfwith variables that do not change with planform configuration 

HEIGHT = HT (H) 

PR = PR_FR 
DE = DE_FR 
AJ = S_FR 
PER = PER_FR 
NJETS = NUM 
SFA1 = S_FA1 
SFA3 = S_FA3 
SFA4 = S_FA4 
SFA1P = SP_FA1 
SFA3P = SP_FA3 
SFA4P = SP_FA4 
XI = E_1 
X3 = E_3 
X4 = E_4 
BF1 = Y_1 
BF3 = Y_3 
BF4 = Y_4 
BFP1 = YP_1 
BFP3 = YP_3 
BFP4 = YP_4 
THAI = THA_1 
THA3 = THA_3 
THA4 = THA_4 
E = 1 . 0 /WL_JP 
SC = S_JP 
SCP = SP_JP 
SL = S_LID 
PP = PP_LID 
SPLAY = SPLY_F 
YF = Y_F 
YR = Y_R 
XCA = XCA _CG 
KRB = KR 

C Assign variables that do change with planform configuration 
DC = DB_WB 
DB = DB_B 
SP = S_WB 
SB = S_B 
WC = B_WB 
WB = B_B 
L = L WB 


DH = 2 W 
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IF (NUM .EQ. 2 .AND. (YB_F .GT. 0.0 .OR. YWB_F .GT. 0.0)) THEN 
Low wing 

IF (Z_W .LE. 0.0) THEN 
HW = YB_F 
High wing 
ELSE 

HW = YWB_F 
END IF 

ELSE 

HW = E_1 
END IF 

Calculate Lift losses while in hover (OGE & IGE) 

CALL HOV_GE 

RETURN 

END 




SUBROUTINE HOV GE 


C- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ACRONYM: jet effects in HOVer due to Ground Effects. 

PURPOSE: Calculation of jet induced lift loss for powered lift 

aircraft due to jet effects in ground proximity. 

LOCAL VARIABLES (in addition to the above parameters) : 

NAME TYPE I/O UNITS DESCRIPTION 


DI 

EAV 

HDR 

HFLAG 


HP 


I ERROR 


I TRAN 


KL 

KLA 

KLB 

KP 

KS 


R 

R 

R 

I 


R 

R 

R 

R 

R 


Ft 

Ft 


Ft 


Average diameter of individual 
nozzles. 

Average half distance between 
adjacent jets. 

aircraft Height/Effective diameter 
HFLAG= 1: the 2nd point tried. 

= 2: at least 3rd point tried. 
= 3: on transition line. 

= 4: past transition line. 
Height to which tangent line 
intersects dL/T=0 (Used in Hover 
hprime method, obviously) 

IERROR= 1: Using lower point and 
possible error 

= 2: Past H'/De on first try. 
= 3: Tangent line does not 
intersect lower curve 
ITRAN = 0: Intersection of tangent 
line has not been found. 
= 1: Intersection of tangent 

line has been past. 
Augmentation factor for LIDs 
First augmentation factor for LIDs 
Second augmentation factor for LIDs 
Constant used in h’ method. 

Ratio of the multi jet suckdown to 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LP 

LS 

LTA 

LTA1 

LTA3 

LTA 4 

LTC 

LTCA 

LTCA1 

LTCA 3 

LTCA 4 

LTCB 

LTCB1 

LTCB 3 

LTCB 4 

LTF 

LTFP 

LTFPL 

LTFPT 

LTFPU 

LTL 

LTN 

LTOG 

LTOGB 

LTOGWB 

LTS 

LTSMB 

LTSSB 


R 

R 

R 0 

R O 

R 0 

R 0 

R 0 

R 0 

R 0 

R 0 

R 0 

R 0 

R 0 

R O 

R 0 

R 0 

R 
R 

R 

R 

R O 

R C 

R 0 

R 0 

R 0 

R 0 

R 0 

R 0 


that for an equivalent single jet. 
Constant exponent used in h* method 
Exponent in expression for multi jet 
suckdown. 

Total lift increment resulting 
from all the fountain arms. 

Lift loss resulting from fountain 
arm (1) . 

Lift loss resulting from fountain 
arm (3) . 

Lift loss resulting from fountain 
arm (4) . 

Total lift loss resulting from 
fountain core. 

Total Lift loss resulting from 
founatin core (Method A) . 

Lift loss from the fountain core 
due to fountain arm (1) . 

Lift loss from the fountain core 
due to fountain arm (3) . 

Lift loss from the fountain core 
due to fountain arm (4) . 

Total Lift loss resulting from 
founatin core (Method B) . 

Lift loss from the fountain core 
due to fountain arm (1) . 

Lift loss from the fountain core 
due to fountain arm (3) . 

Lift loss from the fountain core 
due to fountain arm (4) . 

Total lift loss from all fountain 
arms . 

Lift loss from fountain arms, used 
determine transition line. 

Lift loss from fountain arms, used 
determine transition line (Lower 
line) . 

Lift loss from fountain arms, used 
to determine transition line 
Transition line) . 

Lift loss from fountain arms, used 
determine transition line. (Upper 
line) . 

Total lift loss from lift 
imp r oveme nt dev ices. 

Net lift loss for aircraft. 

Total lift resulting from suckdown 
out of ground effect. 

Total lift resulting from OGE 
suckdown effect for body alone. 
Total lift resulting from suckdown 
out of ground effect for wingbody. 
Total lift loss resulting from 
suckdown. 

Lift loss resulting from suckdown 
using the body planform and 
multiple jets. 

Lift loss resulting from suckdown 
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C 

c 


c 

ltsswb 

R 

0 

— 

c 





c 





c 

MESS 

R 



c 

SHR1 

R 

— 

— 

c 

SHR3 

R 

— 

— — — — 

c 

SHR4 

R 

— 


c 

SLOPE 

R 

— 

— 

c 

SLOPEL 

R 


— 

c 

SLOPEP 

R 

— 

— — — — 

c 





c 

SLOPET 

R 

- 


c 

SLOPEU 

R 

— 

— 

c 

X1C 

R 

— 

— — — — 

c 





c 

XINTER 

R 

— 

— 

c 

XINTP 

R 

- 

— 

c 





c 

XP 

R 

— 

— 

c 





c 

XUPPER 

R 

— 

— 

c 

YP 

R 

— 

— 

c 





c 

YUL 

R 

— 

— — 

c 

GLOBAL VARIABLES 

(in addition 

c 





c 

HOVPIE Common Block 


c 





c 

NAME 

TYPE 

I/O 

UNITS 

c 

c 

AJ 

R 

I 

Sq Ft 

c 

BF1 

R 

I 

Ft 

c 

BF3 

R 

I 

Ft 

c 

BF4 

R 

I 

Ft 

c 

BFP1 

R 

I 

Ft 

c 





c 

• BFP3 

R 

I 

Ft 

c 





c 

BFP4 

R 

I 

Ft 

c 





c 

DB 

R 

I 

Ft 

c 

DC 

R 

I 

Ft 

c 

DE 

R 

I 

Ft 

c 

DH 

R 

I 

Ft 

c 

E 

R 

I 

Ft 

c 





c 

HEIGHT 

R 

I 

Ft 

c 





c 

HW 

R 

I 

Ft 

c 





c 





c 

KRB 

R 

I 

Ft 

c 

L 

R 

I 

Ft 

c 

NJETS 

I 

I 

— 

c 

PER 

R 

I 

Ft 

c 

PP 

R 

I 

— 


using the body planform and a 
single jet. 

Lift, loss resulting from suckdown 
using the wingbody planform and a 
single jet. 

Often used parameter = HDE/ (DB/DE— 1) 
Height ratio for fountain arm (1) . 
Height ratio for fountain arm (3) . 
Height ratio for fountain arm (4) . 
Slope of temporary transition line. 
Slope of lower line. 

Previous slope of temporary 
transition line. 

Slope of transition line. 

Slope of upper line. 

Distance to center of jet pattern 
when jet reaches the ground. 
X-intercept of current line. 
Previous X-intercept of current 
line. 

Previous X-coordinate of last 
point . 

X-coordinate of upper line. 

Previous Y— coordinate of last 
point . 

Y-coordinate of Upper Line 
the above parameters and local vars) : 


DESCRIPTION 


Total jet exit area. 

Half length of fountain arm (1) . 
Half length of fountain arm (3) . 
Half length of fountain arm (4) . 
Maximum spanwise extent of fountain 
arm (1) . 

Maximum spanwise extent of fountain 
arm (3) . 

Maximum spanwise extent of fountain 
arm (4) . 

Body D bar. 

Configuration D bar. 

Equivalent diameter of jets. 

Delta height of wing. 

Length to width ratio of jet 
pattern. 

Altitude at which calculations are 
to be made. 

Half width of body for jets outside 
outside of body, else use half 
distance between adjacent jets. 

Body contour factor 
Length of configuration. 

Total number of jet on config. 

Total perimeter of jets (all jets) 
Fraction of lid perimeter enclosed 
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c 

PR 

R 

I 

— 

c 

SB 

R 

I 

Sq Ft 

c 

sc 

R 

I 

Sq Ft 

c 

SCP 

R 

I 

Sq Ft 

c 

c 

SFA1 

R 

I 

Sq Ft 

c 

SFA3 

R 

I 

Sq Ft 

c 

SFA4 

R 

I 

Sq Ft 

c 

SFA1P 

R 

I 

Sq Ft 

c 

c 

SFA3P 

R 

I 

Sq Ft 

c 

c 

SFA4P 

R 

I 

Sq Ft 

c 





c 

SL 

R 

I 

Sq Ft 

c 

SP 

R 

I 

Sq Ft 

c 

SPLAY 

R 

I 

Deg 

c 

THAI 

R 

I 

Deg 

c 

THA3 

R 

I 

Deg 

c 

THA4 

R 

I 

Deg 

c 

WB 

R 

I 

Ft 

c 

wc 

R 

I 

Ft 

c 

XI 

R 

I 

Ft 

c 





c 

X3 

R 

I 

Ft 

c 





c 

X4 

R 

I 

Ft 

c 





c 

XCA 

R 

I 

Ft 

c 

YF 

R 

I 

Ft 

c 

YR 

R 

I 

Ft 

c 





c 

RESPIE Common Block 


c 

NAME 

TYPE 

I/O 

UNITS 

c 


— 

— 


c 

H 

I 

0 

— 

c 

H HPRI 

R 

0 

Ft 

c 





c 





c 

H LT (500) 

R 

0 


c 





c 

H LTF(500] 

1 R 

0 

*■ 

c 





c 

H LTL(500! 

1 R 

0 

— — — — 

c 





c 

H LTOG 

R 

0 

— 

c 

H LTS (500) R 

0 

— 

c 





c 

FILES USED: 




c 

LOGICAL UNIT 

I/O 

DESCRIPTION 


Jet pressure ratio. 

Planform area of body. 

Area enclosed by jet pattern. 

Actual surface area inside jet 

pattern. , . 

Area affected by fountain ares(l). 

affected by fountain ares (3) . 
Area affected by fountain ares (4). 
Potential surface area between 
jets (1) 

Potential surface area between 
jets (3) 

Potential surface area between 
jets (4) 

Area enclosed by lids. 

Planform area of configuration 
Front jet splay angle. 

Half angles between jets (1) • 

Half angles between jets (3) . 

Half angles between jets (4) . 

Width of body. 

Width of configuration. 

Half distance between adjacent 

jets (1) . . 

Half distance between adjacent 

jets (3) . 

Half distance between adjacent 
jets (4) . 

Distance center of area ahead of Cb 
Distance between front jets. 
Distance between rear jets. 


DESCRIPTION 


Height number counter 
Height to which tangent line 
intersects dL/T=0 (Used in Hover 
hprime method, obviously) 

Total lift loss calculated while 
in hover . 

Lift gain due to fountain effects 
while in hover. 

Lift gain due to the addition of 
LIDs while in hover. 

Lift loss OGE effect while in hover 
Lift loss due to suckdown while in 
hover . 


c 

C None . 

C COMMONS USED: 

C NAME DESCRIPTION 


C 

C HOVPIE 
C 

c RESPIE 


HOVer variables for Power Induced Effects _ Contains 
variables which are sent to the HOV_GE subroutine. 
RESults from all POwer Induced Effects subroutines 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Contains results from each subroutine along with 
variables for height, velocity, jet defelction angle, 
and angle of attack and their counters. 


DESCRIPTION 


CALLED BY: 

NAME 

HCALL 
ROUTINES CALLED: 

name description 


Isolates and controls execution of HOV_GE 


None. 

NOTES: None 
REFERENCES : 
1) Kuhn, 


R E "An Engineering Method of Estimating the Induced Lift 
on V/STOL Aircraft Hovering In and Out of Ground Effect. V/STOL 
Consultant. NADC-80246-60 . pp. January, 1981. 

ENVIRONMENT: „ 

FORTRAN 77, VAX 6800, VAX 11/785, SGI IRIS 4D senes. 

NON-STANDARD CODE: 

? 

AUTHOR (S): 

Douglas A. Wardwell (DAW), NASA Ames Research Center 

Kipp E. Howard (KEH) , Cal Poly San Luis Obispo, NASA Ames Moffett 

REVISION HISTORY: 

DATE INITIALS & DESCRIPTION , 

11/28/89 DAW — FORTRAN version of Dick Kuhn's basic program. 
04/22/90 KEH — Modifications and corrections of routine 


C 07/13/91 KEH — Eliminated extraneous spacing and fixed comments 



^include "hovpie.inc" 

((include "respie.inc" 

*** Calculation variables. 

INTEGER I ERROR, I, HFLAG, ITRAN 
REAL LTS, LTN, LTA, LTA1, LTA3, LTA4, LTCA,TEMP, 

$ LTCA1 , LTCA3, LTCA4, LTCB, LTCB1, LTCB3, LTCB4, SHR1, 

$ SHR3, SHR4, KCA, KCB, KLA, KLB, KL, GS, KS,LS, 

$ LTC, LTF, LTL, SLOPE, SLOPEL, SLOPEU, YP, XP, KP, LP, 

$ LTFP, LTFPL, LTFPU, LTLP, XINTER, YUL, YTRAN, LTFPT, SLOPET, 

$ LTOGB, LTOGWB, LTOG, MESS, LTSMB, LTSSB, LTSSWB, 

$ LTSMC , EAV, DI, X1C, HDA, HP, YFC, SCC, EC, HPDE, MTD, LCA, LCB 


C 

C 


SAVE LTFPT, SLOPET, XINTER, XP, YP, YTRAN, HFLAG, ITRAN 


IF (H .EQ. 1) THEN 
HFLAG = 0 
ITRAN = 0 
END IF 
C 

IF (E .LT. 1.0) E = 1.0 / E 
C 

c *** Estimated HOVER Suckdown and Fountain Lift (?) using the 
C *** Basic method — X/D > 3.0, or h* methodm X/D <— 3.0 
IF (DH .NE. 0.0) THEN 
C Hiqh Wing configuration 

LTOGB = -0.00022*SQRT(SB/AJ)MPR**-0. 64)* (PER/DE) **1.58 

ELSE 

C Low Wing configuration 
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LTOGB = -0 . 00022*SQRT (SP/AJ) * (PR**-0 . 64 ) * (PER/DE) **1.58 
END IF 

LTOGWB = -0 . 00022 *SQRT (SP/AJ) * (PR**-0 . 64) * (PER/DE) **1.58 
LTOG = LTOGB + (LTOGWB-LTOGB) * (1 . 0-0 . 4*SQRT (DH/DE) ) 

LTF =0.0 
LTL =0.0 
LTN =0.0 
I ERROR = 0 
HDR = HEIGHT/DE 


C 

C 


c 

c 


c 


c 

c 


c 


c 

c 


Lift loss due to suckdown 
IF (DH .NE. 0.0) THEN 

High wing configuration 
MESS = (HDR) / (DB/DE-1 . 0) 

IF (NJETS .EQ. 1) THEN 
KS = 1.0 
ELSE 

LS = -1.7* ( (WB/L) * (SB/ (WB*L) )**0.36)**1.38 
KS = 4.5* (MESS) **0.25 * (1.0- ((HDR)/ 

$ (0.08* (DB/DE)* (WB/L) ) )**LS) 

END IF 

IF (PR .GE. 2.0) THEN 
Assume PR = 2.0 

LTSMB = KS * (-0.015) * (MESS**-1 . 96) 

LTSSB = -0.015* (( (HEIGHT+DH) /DE) / (DB/DE-1. 0) ) **-l. 96 
LTSSWB = -0. 015* (( (HEIGHT+DH) /DE) / (DC/DE-1 . ) ) **-1.96 
ELSE 

LTSMB = KS *(-0.015) * (MESS**- (2. 2-. 24* (PR-1 .0) ) ) 
LTSSB = -0.015* (( (HEIGHT+DH) /DE) / (DB/DE-1. 0) ) 

$ **-(2. 2-. 24* (PR-1.0) ) 

LTSSWB = -0. 015* (( (HEIGHT+DH) /DE) / (DC/DE-1. 0) ) 

$ **-(2. 2-. 24* (PR-1.0) ) 

END IF 

LTS = LTSMB+LTSSWB-LTSSB 
ELSE 

Low wing configuration 
MESS = (HDR) / (DC/DE-1. 0) 

IF (NJETS .EQ. 1) THEN 
KS = 1.0 
ELSE 

LS = -1.7* ( (WC/L)* (SP/ (WC*L) ) **0.36) **1.38 
KS = 4.5* (MESS) **0.25 * (1.0- ((HDR)/ 

$ (0.08* (DC/DE)* (WC/L) ) )**LS) 

END IF 

IF (PR .GE. 2.0) THEN 

LTS = KS * (-0.015) *MESS**-1 . 96 
ELSE 

LTS = KS *(-0.015) * (MESS**-(2.2-.24* (PR-1.0) ) ) 

END IF 

ENDIF 
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DI = DE/SQRT (REAL (N JETS ) ) 
EAV = (2*X1+X3+X4) /NJETS 
IF (NJETS .EQ. 2) EAV = XI 


■**■* Fountain Effects Calculation. 
IF (EAV/DI .GT. 3.0) THEN 
IF (NJETS .EQ. 2) THEN 


C 


C 

c 


$ 

1210 


C 

C 


$ 

$ 

c 

c 


$ 


c 


c 


$ 


$ 


*** Jet Fountain — 2 jets (Basic method) . 
IF (SPLAY .GT. 0) THEN 

X1C = X1-HEIGHT*TAN (SPLAY/57. 296) 

IF (X1C .LT. 0.0) X1C=0 . 0 
SFA1 = SFA1*X1C/X1 
SC = SC*X1C/X1 


IF (SFAl .EQ. 0.0) THEN 
LTA1 =0.0 
GO TO 1210 
ELSE 

X1=X1C 
END IF 


END IF 


SHR1 = XI/ (Xl+HEIGHT) 

LTA1 = (2 . 0/NJETS* ( (BFP1 * SFAl) /(XI * SFA1P) ) 
SHR1**2 . 0*BF1/SQRT (BF1*BF1+ (Xl+HEIGHT) 


**0.835) 

** 2 . 0 ) 


LTF = LTA1 

LTN = LTOG+LTS+LTF 

HP = 1.0 

GO TO 2330 

ELSE IF (NJETS .GT. 2) THEN 

*** Jet Fountain — more than 2 jets 


(Basic method) . 


*** Fountain Arms. 


SHR1 = XI/ (Xl+HEIGHT) 

SHR3 = X3/ (X3+HEIGHT) 

LTA1 = (2 . 0/NJETS* ( (BFP1 * SFAl) /(XI * SFA1P) ) 
SHR1**2 . 0*BF1/SQRT (BF1*BF1+ (Xl+HEIGHT) 
LTA3 = (2. 0/NJETS* ( (BFP3 * SFA3)/(X3 * SFA3P) ) 
SHR3**2 . 0*BF3/SQRT (BF3*BF3+ (X3+HEIGHT) 


**0.835) 

** 2 . 0 ) 

**0.835) 

** 2 . 0 ) 


★ 


★ 


In the case of four jets 
IF (NJETS .GT. 3) THEN 

SHR4 = X4/ (X4+HEIGHT) „ 0 „ c , 

LTA4 = (2 . 0/NJETS* ( (BFP4 * SFA4)/(X4 * SFA4P) ) **0 . 835) 
SHR4**2 . 0*BF4/SQRT (BF4*BF4+ (X4+HEIGHT) **2 .0) 

ELSE 

SHR4 =0.0 
LTA4 =0.0 
END IF 

LTA = ( (2 . 0*LTA1+LTA3+LTA4 ) /2 . 0) *0 . 7* 

SQRT ( (HDR) / (DB/DE-1 ) ) 

*** Fountain Core. 

KCA = 0 . 12*NJETS* ( (DB/DE) * (WB/L) *E**0 . 25) * 

DE/SQRT (SC) 

LCA =2.5 

LTCA1 = KCA* (SHRl)**LCA*COS (THAI) 
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C 


c 


c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 


c 

c 

c 

c 


$ 


LTCA3 - KCA* (SHR3) **LCA*COS (THA3) 

LTCA4 = KCAMSHR4)**LCA*COS(THA4) 

TTPA = (2 0*LTCA1+LTCA3+LTCA4) 

KCB = 0.31*NJETS* (DB/DE) **0.35* (WB/L) **0.65* 

(SCP /SC) **0.5* ( (E*DE) / SQRT (SC) ) **1 . 8 
LCB = NJETS*E*DE/SQRT (SC) 

LTCB1 = KCB* (SHR1)**LCB*C0S (THAI) 

LTCB3 = KCB* (SHR3) **LCB*COS (THA3) 

LTCB4 = KCB* (SHR4) **LCB*COS (THA4) 

LTCB = (2 . 0*LTCB1+LTCB3+LTCB4 ) 


IF (LTCA .GT. LTCB) THEN 
LTC = LTCA 
ELSE 

LTC = LTCB 
ENDIF 


LTF = LTA + LTC 
ENDIF 


HP = 1.0 

ELSE IF (NJETS .GT. 1) THEN 

*** h' method for fountain effects. 


IF (NJETS .EQ. 2) THEN 

*** 2 iet configuration. . , 

*** Use a pressure ratio (PR) of 2.0 if PR is greater 

than two. 

IF (PR .GE. 2.0) THEN 

HP = 3. 6* (HW/DI) ** . 62*SQRT (2 . 0) *DE 

ELSE 

HP = 3 . 6* (HW/DI) ** . 62*SQRT (PR) *DE 
END IF 

For 2 jet side-by-side use 2*E instead of BF1 since 
method was developed for longitudinal jets not lateral 

IF (YF .EQ. 0.0 .AND. YR .EQ. 0.0) THEN 
KP = 0.084* (EAV/DI)**. 39 * 

$ ( (BF1/DI) * (SFA1/SFA1P) )**1.1 

ELSE 

KP = .084* (EAV/DI) **.39 * 

$ ( (2 . *X1/DI ) * (SFA1/SFA1P) ) **1 . 1 

END IF 

LP = -1.35* (HW/X1) 

ELSE 

*** more than 2 jet configuration. 

*** Use a pressure ratio (PR) of 2.0 if PR is greater 
than two. 

IF (PR .GE. 2.0) THEN 

HP = 2 . *SQRT (EAV/DI ) *SQRT (2. 0) *DE 

ELSE 

HP = 2. *SQRT (EAV/DI)* SQRT (PR) *DE 

END IF 


C 
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C 

C 

C 


KP = 4 . 4* (SQRT (SC) *DI/ (DE*2 . *EAV) ) **3 . * 

(DB*WB/ (DE*L) )**.9/E ,n-r*cn*T fE)) 

LP = -2 . 4* (DB*WB/ (DE*L) ) ** . 4/ (EAV/DI SQRT (E) 

ENDIF 

SLOPEL = 0 . 033 * (DB/DE*WB/L) 

LTFPU = KP* (HDR) **LP 
LTFPL = SLOPEL/ (HDR) 

IF ((HDR) -LT. HP/DE .OR. HFLAG .LT. 3) THEN 

IF (HFLAG .EQ. 0) THEN 

*** Use 1st point from upper curve. 

LTFP = LTFPU 
HFLAG = 1 

ELSE if (HFLAG .LT. 3) THEN 

★★★ HFLAG = 1: the 2nd point tried. f 

*** HFLAG - 2: at least the 3rd point tried. 

SLOPEP = SLOPE 

c jnDV = fYP-LTFPU) / (XP-(HDR) ) 


C 

C 

C 

c 

c 


$ 

$ 


c 

c 


c 

c 


c 


IF (SLOPE .GE. 
*** Use the 


0.0) THEN 

lower point and give possible error 


*** message. 

HFLAG = 4 
I ERROR = 1 
ELSE 

*** The x-intercept 
XINTP = XINTER 
XINTER = (HDR) - 1. 


(h/d) point. 
0/SLOPE*LTFPU 


IF (XINTER .GT. HP/DE) THEN 


IF (HFLAG .EQ. 2) THEN 

**★ use previous line and current line t 

*** find the tangent line. . , 

LTFPT = YP - (YP-LTFPU) * (XINTP-HP/DE) / 
(XINTP-XINTER) 

X UPPER = XP - (XP-HDR)* (XINTP-HP/DE)/ 
(XINTP-XINTER) 

SLOPET = -LTFPT/ (HP /DE-XUPPER) 

HFLAG = 3 
XINTER = HP/DE 
FT FE 

*** Draw line from point to HP/DE and use 
*** if intersection < HP. 

SLOPET = (LTFP-0.0) /( (HDR) -HP/DE) 

XINTER = HP/DE 
HFLAG = 3 
I ERROR = 2 

•rvmTT 


ELSE IF (XINTER .EQ. HP/DE) THEN 
*** Set up the transition line. 
SLOPET = SLOPE 
HFLAG = 3 

ELSE IF (XINTER .LT. HP/DE) THEN 
Use upper line. 
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c 

c 

c 


c 


LTFP = LTFPU 
ENDIF 


ENDIF 

IF (HFLAG .EQ. 1) HFLAG = 2 
ENDIF 


YP = LTFPU 
XP = (HDR) 
ENDIF 


IF (HFLAG .EQ. 3 .AND. (HDR) .LT HE/DE) THEN 
*** Use the Transition Tangent line. 


IF (ITRAN .EQ. 0) THEN 
YUL = LTFPT 


$ 


$ 

$ 


IF 


( HP /DE* SLOPET) **2.0 .LT. 

' ABS(4.0*SLOPEL*SLOPET) ) THEN 

(** Tannent line DOES NOT intersect the lower 


*** curve. 
LTFP = LTFPL 
HFLAG = 4 
TERROR = 3 


ELS *** Find the intersection of the tangent line 
*** lower curve. 

YTRAN = (- (HP/DE) *SLOPET 

SQRT ( ( HP /DE* SLOPET) **2 . 0 + 

4 . 0 * SLOPEL* SLOPET ) ) /2 . 0 
ITRAN = 1 
ENDIF 


and 


C 


ENDIF 


C 

c 

c 

c 


LTFP = SLOPET * ( (HDR) - XINTER) 

IF iiI F past E the T i^ers^tion of the transition line and 
*** the lower curve — now use lower curve. 

LTFP = LTFPL 
HFLAG = 4 


ELSE IF ((HDR) .GE. HP/DE .OR. HFLAG .EQ. 4) THEN 
*** Use lower curve. 

LTFP = LTFPL 
HFLAG = 4 
ENDIF 


C 


LTF = LTFP 


C 

C*** 

c 


ELSE 

For the single jet case 
LTF = 0.0 
END IF 

******************************* 
*** LID'S 
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IF (NJETS .GT. 2) THEN 

IF (SL .GT. 0.0 .AND. SCP .GT. 0.0) THEN 

KLA = 1 . 25*PP* (SL/SCP) * (DE/DB) **0 . 44*SQRT (1/E) 
KLB = 0.22* (HEIGHT/SQRT (SL) ) *E**2 . 0* (SC/SCP) 

IF (KLA .LT. KLB) THEN 
KL = KLA 
ELSE 

KL = KLB 
ENDIF 

LTL = LTF*KL 
ENDIF 


C 

2330 

C 


C 

C 


ENDIF 

CONTINUE 
*** Output *** 

LTF = LTF*KRB 

LTN = LTOG+LTS+LTF+LTL 

MTD = LTS*XCA/DE , . 

Assign lift losses calculated to the appropriate lift loss 

result vaqriable 
H_LTOG = LTOG 
H_LTS ( H ) = LTS 
H_LTF (H) = LTF 
H_LTL (H) = LTL 
H_LT(H) = LTN 
H HPRI = HP 


RETURN 

END 


Sfcall 

SUBROUTINE SFCALL 

C ACRONYM: stolSF CALLing routine. 

C PURPOSE* The purpose of SFCALL is to set up all correct variables, 
c PURPOSE. The^p rp ^ configuration> that are to be sent to the 

r STOLSF routine. Another reason for this subrouti 

C the subroutines that need to be called have variables with 

r the same name which need to be kept separate when using 

c common blocks to pass the variables back and forth between 

C routines. 

C LOCAL VARIABLES (in addition to the above parameters) . 

C NAME TYPE I/O UNITS DESCRIPTION 

C GLOBAL, 6 VARIABLES (in addition to the above parameters and local vars) 



C FIGPIE Common Block 

C NAME TYPE I/O UNITS DESCRIPTION 

C Db’b' T I Ft Dbar Of Body 

C DB~WB R I Ft Dbar of Wing-Body 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DE F 

R 

I 

Ft 

DE_FR 

R 

I 

Ft 

KB 

R 

I 

— 

NUM 

I 

I 

Ft 

NUM_F 

I 

I 

~ 

NUM_R 

I 

I 

— 

PR FR 

R 

I 

— 

Q_FR 

R 

I 

lb/ sq . 

S FR 

R 

I 

Sq Ft 

WL F 

R 

I 



WL R 

R 

I 

— 

X FR 

R 

I 

Ft 

Y F 

R 

I 

Ft 

z w 

R 

I 

Ft 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


PIEFLAG Common Block 


NAME 


FLGRCS 


HDEOUT 


PRTFLG 

RCSFLG 


TYPE_F 

TYPE_R 

VEOUT 


WBFLAG 


TYPE I/O UNITS 


L 

L 


C*4 

C*4 

L 


I 

0 


0 

I 


o 


PIESF Common Block 


NAME 

TYPE 

I/O 

UNITS 


— 

— 


AJ 

R 

I 

Sq Ft 

DC 

R 

I 

Ft 

DF 

R 

I 

Ft 

DE 

R 

I 

Ft 

DH 

R 

I 

Ft 

HEIGHT 

R 

I 

Ft 

HLTF 

R 

I 

— 


Effective Diameter of Front jets 
Effective Diameter of Front & Rear 
nozzles 

Boundary layer factor 

Total NUMber of jets 

NUMber of Front jets 

NUMber of Rear jets 

Jet Pressure Ratio for all jets 

Dynamic pressure for Front and Rear 

nozzles 

Total jet exit area 

Width to Length ratio of Front jets 
Width to Length ratio of Rear jets 
Distance between Front & Rear jets 
Distance between Front jets 
height of wing above nozzle 


DESCRIPTION 


Flag which signals if there is an 
RCS on the configuration 
(TRUE - RCS, FALSE - No RCS) 

Signals when to output tables based 
on height or height/De 

TRUE - Print based on Height/DE, 
FALSE - Print based on height 
Signals when to output to screen. 
Flag which identifies if RCS lift 
loss has calculation exceeded the 
area ratio (Swing / A jet > 7000) 

TRUE - Exceeded 
FALSE - Not Exceeded 
Discription of type of front nozzle 
(CIRCular, OVAL, RECTangular) 

Same as TYPE_F but for rear nozzles 
Signals when to output tables base 

on VE _ 

TRUE - Print Based on VE 
FALSE - Print Based on Velocity 
Identifies when WingBody planform 
has been enter by the user. Used to 
determine when to use wingbody in 


1 1 1 C 


DESCRIPTION 

Area of front and rear nozzles. _ 
Dbar of the configuration used 
(Based on the wing height) . 
Diameter of individual front jet . 
Equivalent diameter of all jets. 
Wing height above nozzles 
Altitude at which calculations are 
to be made. 

Hover lift gain due to fountain 
effects 
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c 

HLTL 

R 

I 

— 

c 





c 

HP RIME 

R 

I 


c 

KBL 

R 

I 


c 

LP 

R 

I 


c 





c 

LTS 

R 

I 


c 

N 

I 

I 


c 

NF 

I 

I 

*“■ — — — 

c 

PR 

R 

I 

— 

c 

Q 

R 

I 

lb/Sq 

c 

WL 

R 

I 

— 

c 





c 

YF 

R 

I 


c 





c 

RESPIE Common Block 


c 

NAME 

TYPE 

I/O 

UNITS 

c 


— 

— 


c 

D 

I 

0 

— 

c 

DFL (500) 

R 

I 

deg 

c 

H 

I 

0 


c 

H HPRI 

R 

0 

Ft 

c 

H LTF (500) 

R 

0 


c 





c 

H LTL (500) 

R 

0 


c 





c 

H LTS (500) 

R 

0 


c 





c 

HT (500) 

R 

0 

Ft 

c 

V 

I 

0 

— 

c 

VO (500) 

R 

0 

— — — — 


Lift gain due to the addition of 
LIDs while in hover. 

H 1 calculated from HOVPIE 
Boundry layer factor 
Distance between front and rear 
nozzles. 

Hover lift loss due to suckdown. 
Total number of nozzles. 

Total number of front nozzles. 
Pressure ratio of nozzles. 

Average dynamic pressure of nozzles 
Average width to length of front 
and rear nozzles 
Distance between front nozzles. 


effects 


Nozzle deflection angle number 
Actual nozzle deflection angle 
Height number counter 
Height to which tangent line 
Lift gain due to fountain efJ 
while in hover. § , 

Lift gain due to the addition of 
LIDs while in hover. 

Lift loss due to suckdown while m 

hover. 

Actual height value 
Velocity number counter 
Actual velocity value 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FILES USED: 

LOGICAL UNIT I/O DESCRIPTION 


(none) 

COMMONS USED; 
NAME 


DESCRIPTION 


FIGPIE 


PIEFLAGS 


PIESF 


RESPIE 


CALLED BY: 
NAME 

COPPIE 


Effects 
ROUTINES CALLED: 

name description 


conFIGuration for Power Induced Effects - _ Con ^ n ® 
variables needed to define the configuration and other 

parameters of the aircraft. j . rh 

Power induced Effects FLAGS - Contain 5 variables which 
help keep track of the configuration of the aircraft. 
Power Induced Effects for stolSF - Contains 
variables which are sent to the STOLSF subroutine. 
EESults from all POwer Induced Effects subroutines 
Contains results from each subroutine along with 
SSSlIs for height, velocity, jet defelction angle, 
and angle of attack and their counters. 

DESCRIPTION _ 

Controls execution and coordination of Power Induced 
Module 


STOLSF 


Calculates suckdown and fountain lift increments while 
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in STOL flight 

NOTES: None. 

REFERENCES : 

1 ) None . 

EN ^OR?S^7, VAX 6800, VAX 11/785, SGI IRIS 4D series. 

NON-STANDARD CODE: 

7 

AU Spp?. : Howard (KEH) , cal Poly San Luis Obispo, NASA Ames Moffett 

REVISION HISTORY: 

DATE INITIALS & DESCRIPTION 

05/01/90 KEH — Completed initial coding and debugging. 

07 / 13/91 KEH — Eliminated extraneous spacing 


c 


# include "figpie . inc" 

# include "pief lag. inc" 
# include "piesf.inc" 
^include "respie.inc" 


c Assign local STOLSF variables to their respective global configuration 

C variables. 

HEIGHT ■ HT(H) 

PR = PR_FR 
DE = DE_FR 
AJ = S_FR 
DH = Z_W 
N = NUM 
NF = NUM_F 
YF = Y_F 
LP = X_FR 
C 

IF (NUM_R .NE. 0) THEN 

WL = (WL_F + WL_R) / 2.0 
ELSE 

WL = WL_F 
END IF 


C 

KBL = KB 
DF = D_F 
Q = Q_FR 
HPRIME = H_HPRI 
LTS = H_LTS (H) 

HLTF = H_LTF (H) 

HLTL = H_LTL (H) 

C 

IF (Z_W .NE. 0.0) THEN 
DC _ = DB_WB 
C 

ELSE 

DC = DB_B 
END IF 
C 

CALL STOLSF 


C 


RETURN 

END 

SUBROUTINE STOLSF 
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. ctot ff is to calculate the suckdown and 
PURPOSE : ^ n Purpose f O£ t STO hiie ^ ^ ^ configuration. 

loom. VARIABLES (in addition to the J*ovej?arame 


NAME 




C ACRONYM: 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


STOL operation 


- estimation of Suckdown and Foutain effects. 


TYPE I/O UNITS DESCRIPTION- 


HD 

HF 

KH 

KX 

KY 

LTF 

LTN 

LTSS 

VE 


R 

R 

R 

R 

R 

R 


Ft 


Aircraft height/front nozzle diam. 
Height where fountain effects are 
diminish to zero. 

Wall jet placement factor 
Longitudinal adjustment factor 
Lateral adjustment factor _ 

Storage variable for fountain lift 
increment . 

_ Storage variable for net lift 

increment 

^ _ Storage variable for suckdown lift 

increment 

Ratio of freestream dynamic 

pressure to jet dynamic pressure. 

Forward extent of wall jet in units 

of jet diameters 
GLOBAL VARIABLES (in addition to local variabless) : 


XD 


PIESF Common Block 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 

AJ 

DC 

DF 

DE 

DH 

HEIGHT 

HLTF 

HLTL 

HPRIME 

KBL 

LP 

LTS 

N 

NF 

PR 

Q 

WL 

YF 


TYPE I/O UNITS 


R 

R 

R 

R 

R 

R 


R 

R 

R 

R 

I 

I 

R 

R 

R 


I 

I 

I 

I 

I 

I 


I 

I 

I 

I 

I 

I 

I 

I 

I 


Sq Ft 
Ft 

Ft 

Ft 

Ft 

Ft 


lb/Sq Ft 


C RESPIE Common Block 
C NAME TYPE I/O UNITS 

C 

CD I O 


DESCRIPTION 

Area of front and rear nozzles. 

Dbar of the configuration used 
(Based on the wing height) . ^ 

Diameter of individual front jet . 
Equivalent diameter of all jets. 

Wing height above nozzles 
Altitude at which calculations are 
to be made. 

Hover lift gain due to fountain 

effects , 

Lift gain due to the addition of 

LIDs while in hover. 

H' calculated from HOVPIE 
Boundry layer factor 
Distance between front and rear 
nozzles. 

Hover lift loss due to suckdown. 
Total number of nozzles. 

Total number of front nozzles. 
Pressure ratio of nozzles. 

Average dynamic pressure of nozzles 
Average width to length of front 
and rear nozzles 
Distance between front nozzles. 


DESCRIPTION 

Nozzle deflection angle number 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DFL (500 ) R 
H 1 

h_hpri R 
H_LTF(500) R 

H_LTL (500 ) R 

H__LTS(500) R 

HT (500) R 
V 1 

VO (500) R 
FILES USED: 
LOGICAL UNIT 

70 

71 

COMMONS USED: 
NAME 


I 

0 

O 

O 


deg 


Ft 


O 

O 

O 


Ft 


Actual nozzle deflection angle 
Height number counter 
Height to which tangent line 
Lift gain due to fountain effects 
while in hover. 

Lift gain due to the addition of 
LIDs while in hover . . 

Lift loss due to suckdown while m 

hover . 

Actual height value 
Velocity number counter 
Actual velocity value 


I/O description 


Direct access file for storage of lift increment 

Direct accesTfile for storage of lift increment 
due to fountain 


DESCRIPTION 


PIESF 


RESPIE 


Power Induced Effects for stolSF - Contains 
variables which are sent to the STOLSF subroutine 
RESults from all POwer Induced Effects subroutines 
contains results from each subroutine along with 
variables*!*!? height, velocity, jet defection angle, 
and angle of attack and their counters. 


CALLED BY: 

NAME 

SFCALL 
ROUTINES CALLED: 


DESCRIPTION 

Isolates and controls execution of STOLSF 


NAME 


DESCRIPTION 


(none) 

NOTES : None . 

REFERENCES : 

1) None. 

"gSSV,. VAX 6800, VAX 11/085, SGI IRIS 4D series. 

NON-STANDARD CODE: 

fiU Ripp ‘ e! H oward (KEH) , Cal Poly San Luis Obispo, NASA Ames Moffett 

REVISION HISTORY: 

DATE INITIALS & DESCRIPTION 

fn'nvll £h -- Elim inatedTextraneous spacing and fixed comments 

♦include "piesf.inc" 

♦include "respie . inc" 


Local variable declarations 

REAL VE, LTSS, KH, KY, KX, 


HD, XD, HF, LTF , LTN 


VE=SQRT( (0.00119* (1 . 69*VO (V) ) **2. 0) /Q) 
C Suckdown Calculations 
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c 

c 

c 


c 

c 


c 

c 

c 


c 

c 


hd=height/df 

IF (VE .EQ. 0.) THEN 
KH = 1 . 

ELSE IF (NF .EQ. 2) THEN 

(AFWAL-TR-87-3019 Volume II, 14-6) 

Make calculations for jets that ar « f ld ^ y ' slde * 

IF ( (YF/DF) .GE. 4.25 .OR. NF .EQ. 1) THEN 

KY = 1.0 

—KY = 1. + 6.2 * VE * (1. - (YF/DF) /4. 25) 

END IF 

ral rul ate forward extent of jet flow. 

XD=HD*TAN ( (DFL (D) -90 . ) /57 . 296) + (KBL* ( . 75/VE) -1 . 75*WL . 3 

$ tS-2. 25M1 . -SIN ( (DFL (D) -90 . ) /57 . 296) ) *HD**2 . 5) * 

$ (DFL(D)/90.)**2.*KY 

KH = (XD + (LP/2.J/DF) * DF/DC + .5 

IF (KH .GE. 1.) THEN 
KH = 1.0 

ELSE IF (KH .LT. 0.0) THEN 
KH = 0.0 
END IF 

ELSE IF (NF .EQ. 1) THEN 

(AFWAL-TR-87-3019 Volume II, 14-5) 

Make calculations for tandem jets. 

IF ( (LP/2 . ) /DF .LT. 2.12) THEN 

KX = 1. + .64 * (1. - (LP/2. /DF) /2.12) 

ELSE IF ( (LP/2 . ) /DF .GE. 2.12 .OR. 

$ (LP/2.J/DF .EQ. 0.) THEN 

KX = 1. 

END IF 

Calculate forward extent of jet wake 

XD=HD*TAN ( (DFL (D) -90 . ) /57 . 296) + (KBL* ( . 75/VE) - 7 WL* . 
VE**2 .25* (1 . -SIN ( (DFL (D) -90 . ) /57 . 296) ) * (HD/KX) 2.5) 
(DFL (D) / 90 . ) **2 . 

KH = (XD + (LP/2 . ) /DF) * DF/DC + .5 


$ 

$ 


IF (KH.GE.l.) THEN 
KH=1 . 0 

ELSE IF (KH .LT. 0.0) THEN 
KH=0 . 0 
END IF 


END IF 


LTSS=LTS*KH* (SIN (DFL (D) /57 .296) ) **2 
C 

c Fountain lift calculations 
IF (N . LT . 2 ) THEN 
LTF=0 . 

ELSE 

C 


* U> 
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IF (VE . EQ . 0 . ) THEN 

hf=hprime 

ELSE 

HF=DE*2 . 5/SQRT (VE) 

ENDIF 

IF (HEIGHT. GT.HF .AND. VE .NE. 0.0) THEN 
LTF=0 . 

ELSE IF(HF.GT.HPRIME) THEN 

OT-'S?F*HLTL) MHF/HPRIME) **0. 5*KH 
* (SIN (DFL (D) / 57. 296) )**2.0 

ptSE 

LTF= (HLTF+HLTL) * (HF/HPRIME) **0 . 5*KH 
* (SIN (DFL (D) / 57 .296) ) **2 . 0 

END IF 


IF (LTF . LT. 0 . 
END IF 


LTF=0 . 0 


C 

C 

C 

C 

c- 

c 

c 

c 

c 

Cl- 


out -of -Ground-Effect Term 

The following has been commented out because of the 
recommendation of Richard Kuhn. _ 

This~section must be included because the OGE lift loss 
does vary with velocity and deflection angle. 

HLTOGE(D) = H_LTOG * (SIN (DFL «>) _/ **2 

HLTOGE(D) = H LTOG 


OUTPUT 

LTN = LTSS + LTF 
HDR=HEIGHT/DE 

Assign lift losses calculated 
result vaqriable 
REC3 = LH * LV * (D - 1) + LH 
WRITE (70, 100, REC=REC3) LTSS 
WRITE (71, 100, R£C=REC3) LTF 


to the appropriate 
* (V - 1) + H 


lift loss 


C 

RETURN 

C Format statements 
100 FORMAT (Fll. 5) 
END 


Rescal 

SUBROUTINE RCSCAL _ 

^'acronym! React ion'coiitrol System CALI routine (power induced effectsi 

PURPOSE: RCSCAL sets up all the 

configuration, that are sent to the RCSCAL routine 

LOCAL VARIABLES (in addition to the above parameters) . 

NAME TYPE I/O UNITS DESCRIPTION 


(none) 

GLOBAL VARIABLES (in 


addition to the above parameters and local vars) : 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


FIGPIE Common Block 


NAME 

B_W 

D_RCS 

PR_RCS 

Q_RCS 

s_w 

T_RCS 

X_RCS 

Y RCS 


TYPE I/O UNITS DESCRIPTION 


R 

R 

R 

R 

R 

R 

R 


I 

I 

I 

I 

I 

I 

I 


PIEFLAG Common Block 
NAME TYPE I/O 


Ft 

Ft 

lb/sq ft 
Sq Ft 
lb 
Ft 

Ft 


UNITS 


FLGRCS 

L 

0 

— 

PIERCS Common Block 
NAME TYPE I/O 

UNITS 


— 

— 


B 

R 

I 

feet 

DRCS 

R 

I 

feet 

NPR 

R 

I 


Q 

R 

I 

lb/sq 

S 

R 

I 

sq ft 

T 

R 

I 

lb 

X 

R 

I 

feet 

Y 

R 

I 

feet 

RESPIE Common Block 
name TYPE I/O 

UNITS 


— 

— 


RCS_LT (1, 

500) R 

0 

— 

V 

I 

0 

— 


Width of Wing (Wing span) 

Diameter of Roll RCS nozzle 

Roll RCS Pressure Ratio 

Dynamic pressure for roll RCS jets 

Area of Wing 

Thrust of roll RCS nozzle 

Distance of roll RCS nozzle ahead 

of wing trailing edge 

Distance of roll RCS nozzle in from 

wingtip 


DESCRIPTION 

Flag which signals if there is an 
RCS on the configuration 
(TRUE - RCS, FALSE - No RCS) 


DESCRIPTION 
Wing span 

Roll RCS jet Diameter. 

Roll jet nozzle pressure ratio. 

Roll jet dynamic pressure. 

Wing area 

RCS roll jet thrust 

jet distance ahead of wing trailing 
edge. 

Jet distance in from wing tip. 


Total lift loss from the Reaction 
Control System. 

Velocity number counter 


FILES USED : 

LOGICAL UNIT I/O DESCRIPTION 


clist of files used in the routine> 
COMMONS USED: 

DESCRIPTION 


NAME 


FIGPIE 


PIEFLAGS 


PIERCS 


RESPIE 


conFIGuration for Power Induced Effects - Contains all 
variables needed to define the configuration and other 

?owS e induced EffeS^FLAGS - Contains variables which 
help keep track of the configuration of the aircraft. 
Power Inducde Effects for the Reaction Control System - 
Contains variables which are sent to the RCSIND 

RESult^from all POwer Induced Effects subroutines - 
Contains results from each subroutine along with 
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C 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CALLED BY: 
NAME 


variables for height, velocity, jet defection angle, 
and angle of attack and their counters. 

description 


COPPIE 


Controls - executIon”and""coordi nation of Power Induced 

Effects Module 
ROUTINES CALLED: 

NAME 


description 

Calculates _ RCS - lift”ncrements”while in forward flight 


RCSIND 
NOTES: None. 

REFERENCES : 

1) None. 

“jSi, VAX 6800, VAX 11/785, SGI IRIS 4D series. 
non-standard code 

“S® 1 !-' Howard (KEH), Cal Poly San Luis Obispo, NASA Ames Moffett 
REVISION HISTORY : 

♦include "f igpie . inc" 

"pieflag. inc" 

"piercs.inc" 

"respie.inc” 


# include 
# include 
♦ include — . 

C Assign local RCSIND variables to their respective global configuration 

C variables. 

IF (FLGRCS) THEN 
B = B_W 
DRCS = D_RCS 
NPR = PR_RCS 
Q = Q_RCS 
S = s_w 

T = T_RCS 
X = X_RCS 
Y = Y_RCS 
CALL RCSIND 
ELSE 

C Assign the zero to RCS results. 

RCS_LT(1,V) =0.0 
END IF 
C 

return 

END 


Rcsind 


SUBROUTINE RCSIND 


C 

c ACRONYM: 

C 

c PURPOSE: 

C 


RCS jet INDuced effects. 


Calculation of 
aircraft due to 


jet induced lift loss for powered lift 
jet effects in ground proximity. 
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C LOCAL 


VARIABLES (in addition to the abova palters, . 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 

KB 

KC 

LTO 


LTP 

LVOLO 
MO 
MV 
PI 
VE 


TYPE I/O UNITS DESCRIPTION 


R 

R 

R 


R 

R 

R 

R 

R 


GLOBAL VARIABLES (in 


Chordwise position factor. 

Spanwise position factor. . 

Lift increment for subcntical . 
pressure ratio (does not vary wit 
pressure ratio) 

Lift increment due to pressure 
ratio 

Lift increment for RCS 
Rolling moment without losses 
Rolling moment with losses 
3.1415927 

Effective velocity ratio 

addition to the above parameters and local vars) 


lb ft 
lb ft 
rad 


PIEFLAG 

NAME 

Common Block 
TYPE I/O 

UNITS 

RCSFLG L 

O 


PIERCS 

Common Block 

UNITS 

NAME 

TYPE 

I/O 

_ 



— 


B 

R 

I 

feet 

DRCS 

R 

I 

feet 

NPR 

R 

I 

— — 

Q 

R 

I 

lb/ sq 

S 

SAJ 

R 

R 

I 

sq ft 

T 

R 

I 

lb 

X 

R 

I 

feet 

Y 

R 

I 

feet 


description 


Flag which identifies if RCS 
loss has calculation exceeded the 
area ratio (Swing / A jet > 7000) 
TRUE - Exceeded 
FALSE - Not Exceeded 


DESCRIPTION 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


RESPIE Common Block 
NAME TYPE I/O 


UNITS 


Wing span 

Roll RCS jet Diameter. 

Roll jet nozzle pressure ratio. 

Roll jet dynamic pressure. 

Wing area 

Wing area / jet area 

RCS roll jet thrust 

jet distance ahead of wing trailing 

edge . ... * 

Jet distance in from wing tip. 


DESCRIPTION 


RCS LT (1, 500) R 


V I 

VO (500) R 

FILES USED: 
LOGICAL UNIT 

None. 

COMMONS USED: 
NAME 


O 

o 

I/O DESCRIPTION 


Total lift loss from the Reaction 
Control System. 

Velocity number counter 
Actual velocity value 


description 


PIEFLAGS 


PIERCS 


ruwci 'induced Effects FLAGS - Contains variables which 
help keep track of the configuration of the aircraft. 


Power 

Power TnSoS -tS‘ faction ; Contr^Syste. - 

Contains variables which are sent to the RCSIND 
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c 
c 
c 
c 
c 
c 
c 
c 

c 

C ROUTINES CALLED 
C 

c 
c 

c 

c REFERENCES: 


RESPIE 


CALLED BY: 
NAME 

RCSCAL 


NAME 

None . 
NOTES: None. 


subrouUne. mduced Effects subroutines - 

RESults from all ^ subroutine along with 

SSSS/SfSiSS "fccity. jet defection angle, 
of attack and their counters. 

description 


Isolates and controls execution of RCSIND 


description 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1) None. 

VAX 6800, VAX 11/785, SGI IMS 4D series. 

NON-STANDARD CODE: 

~ ctr 

REVISION HISTORY: 

02/22/90 S°ISSi». 

# include "piercs.inc” 

# include "respie. inc" 

# include "pieflag.inc" 

C 

r *** Local variables. tvoto 

REAL PI, KB, KC, MV, MO, LTO, LTP, VE, LVOLO 

C 

PI = 3.1415926 

VE = SQWU*. 00119* (1.69*VO(V))**2.0)/Q) 

SAJ = (S/2.0)/ ((PI/4. 0)*DRCS**2.0) 

C Calculate chordwise position factor 
if (Y/DRCS .gt. 10) then 
KB = 1.0 
else 

KB = .25+. 2* (Y/DRCS) **.58 
end if 

C Calculate spanwise position factor 
if (X/DRCS .gt. 12.0) then 
KC = 1.0 
else 

KC = .25+. 06* (X/DRCS) 
end if 

C Limitiations of this method 
IF (VE .GT. .1) THEN 
LTO =0.0 
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LTP =0.0 
go to 15 
END IF 

IF (SAJ .GT. 7000) THEN 
RCSFLG = .TRUE. 

ELSE 

RCSFLG = .FALSE. 

END IF 

if (NPR .It. 1.893) then 
LTP =0.0 

elS LTP = -. 017*VE* (SAJ** . 42) * (NPR-1 . 893) ** . 75 
end if 

C lTO = ( (3 . 0*VE**3 . 0) -2 . 4*VE**2) *SAJ** . 5 + 

$ ( . 41*VE**2 . 2) *SAJ** . 688 

LVOLO =’ (LTO+LTP ) *KB*KC 

MV = MO* LVOLO . . _ 

C Assign the correct value to the overa re u 

RCS_LT(1,V) = LVOLO , , 

100 format (lx, ' V, kts , f 

110 format (lx, 3 (f 9 . 3, 3x) ) 

C 

15 RETURN 
END 


M' ) 


fivcall 

SUBROUTINE GVCALL 

C~ ACRONYmT stolGV CALLing routine for power induced effects 

— — rr rsf r\;rnT t i q to set up all correct variables , 
PURPOSE: The purpose of GVCALL is to set p the 

based on the configuration, that are to oe 

STOLGV routine. Another reason for this subroutine 

Sss variables bac* and forth between routrnes. 
LOCAL VARIABLES (in addition to the_above^parameters) . 

NAME 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TYPE 


I/O UNITS DESCRIPTION 

<list of local variables in routine> 

GLOBAL VARIABLES (in addition to the above parameters and local vars) : 
FIGPIE Common Block 


NAME 

B_WB 

D_F 

DE_F 

NUM__F 

NUM_R 

Q_FR 

S_B 

S CS 


TYPE I/O UNITS DESCRIPTION 


R 

R 

R 

I 

I 

R 

R 

R 


I 

I 

I 

I 

I 

I 

I 

I 


Ft 

Ft 

Ft 


Ib/sq ft 
Sq Ft 
Sq Ft 


Width of Wing-Body 
Diameter of each Front jet 
Effective Diameter of Front jets 
NUMber of Front jets 
NUMber of Rear jets 

Dynamic pressure for Front and Rear 

Area of Body 

Area of Center Section 



n n o n n 


168 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


S F 

R 

I 

Sq Ft 

s~w 

R 

I 

Sq Ft 

S _ VJB 

R 

I 

Sq Ft 

TT F 

R 

I 

“ — “ “ 

WL B 

R 

I 


WL F 

R 

I 


X FR 

R 

I 

Ft 

Z B 

R 

I 

Ft 

zjw 

R 

I 

Ft 

PIEGV Common 
NAME 

Block 

TYPE 

I/O 

UNITS 


— 

— 


AFACT 

R 

I 

— 


Area of Front jets 

Area of Wing 

Area of Wing-Body 

Front Thrust / total Thrust 

Width to Length ratio of Body 

Width to Length ratio of Front jets 

Distance between Front & Rear nets 

Height of body base above nozzle 

height of wing above nozzle 


description 


AJ 

DE 

DF 

DH 

EX 

LTV 

N 

Q 

TFT 

WLB 

WLJ 


R 

R 

R 

R 

R 

R 

I 

R 

R 

R 

R 


I 

I 

I 

I 

I 

0 

I 

I 

I 

I 

I 


Sq Ft 

Ft 

Ft 

Ft 

Ft 


Lb/sq ft 


C PIEFLAG Common Block 
C NAME TYPE I/O 


UNITS 


Area ratio - based on wether the 
wing or body is being used 
Area of the front jets . 

Equivalent Diameter of front nets 
Diameter of front jets 
Heiqht of wing above jets 
Distance from jet pattern center 
to center of front jets. 

Lift loss due to ground vortex. 

Number of front jets 

Dynamic pressure of the nozzles 

Front thrust split 

Width to length ratio of the body. 

Width to length ratio of the jets. 


DESCRIPTION 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WBFLAG 


0 


RESPIE Common Block 

NAME TYPE I/O UNITS 


Identifies when WingBody planform 
has been enter by the user .Used 
to determine when to call MAKEWB 
subroutine. 


DESCRIPTION 


A 
D 

H 

LA 

LD 

LH 
LV 
REC4 

V I C 

FILES USED: 

LOGICAL UNIT I/O 


I 

I 

I 

R 


R 

R 

I 


0 

0 

0 

I 


I 

I 

o 


Angle of attack number counter 
Nozzle deflection angle number 
counter . 

Height number counter 

Total number of Angle of Attack 

values 

Total number of nozzle deflection 
angles. 

Total number of height values. 
Total number of velocity values. 
Record number for any file which 
replaces a 4 X 4 matrix 
Velocity number counter 


DESCRIPTION 


72 


Direct access file for storage of lift increment 
due to the ground vortex on the body 
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c COMMONS USED: 


Direct access file for storage of lift increment 
due to the ground vortex on the wing 


DESCRIPTION 


FIGPIE 


PIEFLAGS 

PIEGV 

RESPIE 


C CALLED BY: 
C NAME 


conFIGuration for Power Induced Effects - Contains all 
variables needed to define the configuration and other 

£?£»£ 2le"cS - Contains variables which 
help keep track of the configuration of the aircraft. 
Power Induced Effects for stolGV - Contains 
variables which are sent to the STOLGV subroutine. 
RESults from all POwer Induced Effects subroutines 
Contains results from each subroutine along with 
variables for height, velocity, jet defelction angle, 
and angle of attack and their counters. 


DESCRIPTION 


COPPIE 


Controls execution and coordination of Power Induced 
Effects Module 


C ROUTINES CALLED: 


DESCRIPTION 


C STOLGV Calculates ground vortex lift increments while m 

c flight 

C NOTES: None. 

REFERENCES : 

1) None. 

ENVIRONMENT: 

FORTRAN 77, VAX 6800, VAX 11/785, SGI IRIS 4D senes. 

NON-STANDARD CODE: 

C ? 

c “Spp's/ Howard (KEH), Cal Poly San Luis Obispo, NASA Ai.es Moffett 
C REVISION HISTORY: 

C DATE INITIALS & DESCRIPTION . 

C 05/14/90 KEH — Completed initial coding and debugging. 

C 07/13/91 KEH — Eliminated extraneous spacing and fixed comments 

♦include "figpie.inc" 

♦include "pieflag. inc" 

♦include "piegv.inc" 

♦include "respie.inc" 

REC4 = LH * LV * LD * (A - 1) + LH * LV * (D - 1) + LH * (V - 1) 

C Assign local STOLGV variables to their respective global configuration 

C Variable^that do not change with each configuration (Wing, Body, CS) 
TFT = TT_F 
WLJ = WL_F 
AJ = S_F 
N = NUM_F 
DE = DE_F 
DF =D_F 
Q = Q FR 
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IF (NUM_F .EQ. 2 .AND. NUM_R .EQ. 0) THEN 
EX = 0.0 
ELSE 

EX = X_FR / 2.0 
END IF 


C 

c 

c 


c 

c 


c 


c 


c 


c 

c 


c 


c 

c 

c 

100 


IF (WBFLAG) THEN 

Variables that STOLGV needs while calculating for the Wingbody 
IF (B_WB**2 / S_WB .GT. 1.0) THEN 
WLB =1.0 
ELSE 

WLB = WL_WB 
END IF 


DH = 0.0 

AFACT = (S_WB/S_F) ** . 62 

IF (VO(V) .EQ. 0.0) THEN 
LTV =0.0 
ELSE 

CALL STOLGV 
END IF 

WRITE (72,100, REC=REC4 ) LTV 
WRITE (73, 100,REC=REC4) 0.0 

Variables that STOLGV needs while calculating for the Body. 
WLB = WL_B 
DH = Z_B 

AFACT = (S_B / S_F * WL_B)**.62 

IF (VO(V) .EQ. 0.0) THEN 
LTV =0.0 
ELSE 

CALL STOLGV 
END IF 


WRITE (72, 100, REC=REC4) LTV . ^ _ 

Variables that STOLGV needs while calculating for the Wing 


WLB =1.0 
DH = Z W 

AFACT = ( (S W/S_F)**.62 - (S_CS/S_F) ** . 62) 


IF (VO (V) .EQ. 0.0) THEN 
LTV =0.0 
ELSE 

CALL STOLGV 
END IF 


WRITE (73, 100, REC=REC4 ) LTV 
END IF 


RETURN 

Format statements 
FORMAT (F11.5) 

END 
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Stolev 

SUBROUTINE STOLGV 

c ACRONYM: STOL operation - estimation of Ground Vortex term. 

The purpose of STOLGV is to calculate the lift loss due 
5 thelUund vortex generated from the proxrmity of th 

VARIABLES^ "(in addition to the above paranetersl : 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE: 


LOCAL 


NAME 

TYPE 

I/O 

UNITS 


— 

— — 


CP 

R 

- 

— 

HID 

R 


Ft 

H2D 

R 

- 

Ft 

INC 

R 

I 

Deg 

KX 

R 

_ 

— 

VE 

R 

— 

— 


GLOBAL VARIABLES 


Ground Vortex factor 
Height at which the rate of change 
of lift with height changes. 
Maximum height at which the ground 
vortex effects are felt 
Total angle nozzles are facing 
taking into account the jet 
deflection angle and the angle of 
attack. 

Factor used in calculating HzD 
ratio of the dynamic pressure of 
the aircraft over the dynamic 
pressure of the nozzles. 

(in addition to the above local variables) : 


Common Block 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 

TYPE 

I/O 

UNITS 


— 

— 


AFACT 

R 

I 

— — — — 

AJ 

R 

I 

Sq Ft 

DE 

R 

I 

Ft 

DF 

R 

I 

Ft 

DH 

R 

I 

Ft 

EX 

R 

I 

Ft 

LTV 

R 

0 

— 

N 

I 

I 

— 

c 

R 

I 

Lb/sq ft 

TFT 

R 

I 

— 

WLB 

R 

I 

— 

WLJ 

R 

I 

— 


Area ratio — based on wether the 
wing or body is being used 
Area of the front jets 
Equivalent Diameter of front jets 
Diameter of front jets 
Height of wing above jets 
Distance from jet pattern center 
to center of front jets. 

Lift loss due to ground vortex. 

Number of front jets 

Dynamic pressure of the nozzles 

Front thrust split 

Width to length ratio of the body. 

Width to length ratio of the jets. 


RESPIE Common Block 


NAME 


TYPE I/O UNITS 


description 


A 

D 

H 

LA 

LD 

LH 

LV 

REC4 


I 

I 

I 

R 


R 

R 

I 


0 

0 

0 

I 


I 

I 

0 


Angle of attack number counter 
Nozzle deflection angle number 
counter. 

Height number counter 

Total number of Angle of Attack 

values 

Total number of nozzle deflection 
angles . 

Total number of height values. 
Total number of velocity values. 
Record number for any file which 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


V 1 

FILES USED: 
LOGICAL UNIT 

<None> 

COMMONS USED: 
NAME 


replaces a 4 X 4 matrix 
Velocity number counter 


I/O DESCRIPTION 


PIEFLAGS 

PIEGV 

respie 


CALLED BY : 
NAME 

GVCALL 


DESCRIPTION 

Sr Induced Effects .for stolGV - ; £f^ outine . 
SIiSir«au“~e e r n 5ndS Effects subroutines - 
Contains r e sul ts from je^defelSion angle, 

ST2SS ^a^anSe^coLers. 

description 


c ROUTINES CALLED: 


Isolates _ and”controls execution of STOLGV 


NAME 


DESCRIPTION 


C <None> 

C NOTES: None. 

c REFERENCES: „ R F « A Me thod for Prediction of the 

1) Stewart, V.R. and Kuhn, , Parame ters of STOL Aircraft 

Aerodynamic Stability and Co Aircraft Operations. Rockwell 

configurations." Sorth Ameri«n tocraft ^ratio^ t 

international Corporation. AFWAL-TR 87 vo 

June 1987. 

„ “STii, VAX 6800, VAX 11/785. SGI IRIS 4D series, 
c NON-STANDARD CODE: 

' AU Kipp ( ? , . : Howard (KEH) , Cal Poly San Luis Obispo. NASA A»es Moffett 
^SSe 0 * HIS SSials t description 

05/08/90 KEH — Initial completion of code. 

07/13/91 KEH -- Eliminate^extraneous^spacing^and^f ixed^comments^ 

# include "piegv.inc" 

# include "respie. inc" 

C 

C Variable declaration 

REAL CP, HID, H2D, INC, KX, VE 

C , 

q Variable initialization 

INC = DFL(D) + AOA(A) 

VE=SQRT ( (0 . 00119* (1 - 69*VO (V) ) **2 . ) /Q) 

TF fEX/DF . LT . 2.12) THEN 

KX = 1. + .64 * (1. - (EX/DF) /2 . 12) 

ELSE IF (EX/DF . GE . 2.12 .OR. 

$ EX/DF .EQ. 0.) THEN 


C 

C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 
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KX = 1. 

END IF 

hid— 1 19* ( (1/VE)**0. 68)* (l.+SIN( (INC-90. 0)/57. 296) 

S£V.14/VE**2.0 + 2.0) *SQRT (INC/90 . ) *WLB** . 4 WLJ**-.12 KX 

CP=-2 . 3/SQRT (VE) * (1.0 - HT (H) / (H2D*DF) 

IF (CP .LT. -3.3) CP=-3.3 
IF (CP .GT. 0.0) CP=0.0 


C Calculate LTV according to its relationship to HI and H2. 

IF * WACT * VE-.8 . CP . 

$ (10+ SIN ( (INC - 90.0) /57. 296) ) * 

(1.0 + SIN ( (INC - 90.0) /57. 296) )**2.0 
( (HT (H) + DH) /DF) **-3 . 2 


$ 

$ 


ELSE 
LTV 
END IF 

RETURN 

END 


= 0.0 


Wkcall 

SUBROUTINE WKCALL 

C ACRONYM: stolWK CALLing routine for power induced effects 

The purpose of GVCALL is to set up all the correct 
variables, based on the configuration, that are to be sent 
to the STOLWK and JIEPIE routine. 


C PURPOSE: 
C 
C 


r ZO me aiiu . 

c LOCAL VARIABLES (in addition to the _^°Y! p P^ e * 

TYPE I/O UNITS DESCRIPTION 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 


DE 


LT__WK 

LT__WKB 

LT_WKW 

LT0 

PER 

PI 


R 


R 

R 

R 


Effective diameter of the jets in 
question. 

Total Lift loss of the config. 
due to jet wake. 

Lift loss of the body due to jet 
wake . 

Lift loss of the wing due to jet 
wake * 

Lift loss cut of ground effect. 
Perimeter of jets in question. 
Constant - 3.1415926 


C GLOBAL VARIABLES (in addition to the above parameters and local vars) 


FIGPIE Common Block 

NAME TYPE I/O UNITS 


C 

c 

c 

c 


DESCRIPTION 


B_B 
B_CS 
B__W 
B WB 


R 

R 

R 

R 


I Ft 
I Ft 
I Ft 
I Ft 


Width of Body 
Width of Center Section 
Width of Wing (Wing span) 
Width of Wing-Body 
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c 

D F 

R 

I 

Ft 

c 

D R 

R 

I 

Ft 

c 

DE F 

R 

I 

Ft 

c 

DE R 

R 

I 

Ft 

c 

KLF 

R 

I 

— 

c 





c 





c 

MAC 

R 

I 

Ft 

c 

NUM F 

I 

I 

— 

c 

NUM R 

I 

I 

— 

c 

PR F 

R 

I 

— 

c 

PR FR 

R 

I 

— 

c 

PR R 

R 

I 

— 

c 

Q F 

R 

I 

lb/sq ft 

c 

Q R 

R 

I 

lb/sq ft 

c 

S B 

R 

I 

Sq Ft 

c 

s cs 

R 

I 

Sq Ft 

c 

S F 

R 

I 

Sq Ft 

c 

S R 

R 

I 

Sq Ft 

c 

s w 

R 

I 

Sq Ft 

c 

S WB 

R 

I 

Sq Ft 

c 

SF FB 

R 

I 

Sq Ft 

c 





c 

SF RB 

R 

I 

Sq Ft 

c 





c 

T F 

R 

I 

lb 

c 

T R 

R 

I 

lb 

c 

WL B 

R 

I 

— 

c 

WL F 

R 

I 

— 

c 

WL R 

R 

I 

— 

c 

X FR 

R 

I 

Ft 

c 

XN02 F 

R 

I 

Ft 

c 

XN02 R 

R 

I 

Ft 

c 

XTE_F 

R 

I 

Ft 

c 





c 





c 

XTE_R 

R 

I 

Ft 

c 





c 





c 

Y F 

R 

I 

Ft 

c 

Y R 

R 

I 

Ft 

c 

YB_F 

R 

I 

Ft 

c 





c 

YB_R 

R 

I 

Ft 

c 





c 

YWB_F 

R 

I 

Ft 

c 





c 

YWB_R 

R 

I 

Ft 

c 





c 

2 B 

R 

I 

Ft 

c 

2_W 

R 

I 

Ft 

c 





c 

PIEFLAG Common 

Block 


c 

NAME 

TYPE I/O 

UNITS 

c 



"" 


c 

WBFLAG 

L 

0 

— 


C 

c 


Diameter of each Front jet 

Diameter of each Rear jet 

Effective Diameter of Front jets 

Effective Diameter of Rear jets 

Adjustment factor for flap 

extension when calculating the lift 

loss due to jet induced effects. 

Mean Aerodynamic Chord of wing 

NUMber of Front jets 

NUMber of Rear jets 

Jet Pressure Ratio for front jets 

Jet Pressure Ratio for all jets 

Jet Pressure Ratio for rear jets 

Dynamic pressure for the front jets 

Dynamic pressure for the rear jets 

Area of Body 

Area of Center Section 

Area of Front jets 

Area of Rear jets 

Area of Wing 

Area of Wing-Body 

Area ahead of Front jets using body 
planform 

Area ahead of Rear jets using the 
body planform 
Thrust of Front jets 
Thrust of Rear jets 
Width to Length ratio of Body 
Width to Length ratio of Front jets 
Width to Length ratio of Rear jets 
Distance between Front & Rear jets 
X-coordinates of Front NOZzle 
X-coordinates of Rear NOZzle 
X-coordinate of trailing edge 
for front nozzle (root TE if 
Nozzle within body) 

X-coordinate of trailing edge 
for rear nozzle (root TE if 
Nozzle within body) 

Distance between Front jets 
Distance between Rear jets 
Lateral distance from Body to Front 
jets (for external jets) 

Lateral distance from Body to Rear 
jets (for external jets) 

Lateral distance from Wingbody to 
Front jets (for external jets) 
Lateral distance from wingbody to 
Rear jets (for external jets) 

Height of body base above nozzle 
height of wing above nozzle 


DESCRIPTION 


Identifies when the WingBody 
planform has been enter by the 
user. Used to determine when to 
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c 



C PIEWK Common Block 


c 

NAME 

TYPE 

I/O 

UNITS 

c 


— 

— 


c 

AFACT 

R 

I 


c 

c 

AJ 

R 

I 

Sq. Ft 

c 

AR 

R 

I 

~ — 

c 

B 

R 

I 

— 

c 

cu 

R 

I 

— 

c 

DH 

R 

I 

Ft 

c 





c 

DI 

R 

I 

Ft 

c 

FIGWK 

C 

— 


c 





c 

HEIGHT 

R 

I 

Ft 

c 

KL F 

R 

I 


c 





c 





c 





c 

LT 

R 

0 

— — 

c 

LTO 

R 

— 

— 

c 

LT OG 

R 

0 

— 

c 

MC 

R 

I 

— 

c 

N 

I 

I 

— 

c 





c 

PR 

R 

I 


c 

Q 

R 

I 

lb/Sq Ft 

c 

Q0 

R 

0 

lb/Sq Ft 

c 

s 

R 

I 

Sq Ft 

c 

SF 

R 

I 

Sq Ft 

c 





c 

T 

R 

I 

lb 

c 

TEFALG 

L 

— 

— ' — — — 

c 





c 





c 

WL 

R 

I 


c 

. xc 

R 

— 

— 

c 





c 

Y 

R 

I 

Ft 

c 

YP 

R 

I 

Ft 

c 

VEFACT 

R 

I 

— 

c 





c 





c 





c 

2 

R 

I 


c 





c 

RESPIE Common Block 


c 

NAME 

TYPE 

I/O 

UNITS 

c 

c 

D 

I 

0 

— 

c 





c 

H 

I 

0 

— 

c 

LD 

R 

I 

— 

c 





c 

LH 

R 

I 

— 

c 

LV 

R 

I 




call MAKEWB subroutine. 


description 

Area ratios used in calculating 
the lift loss due to the jet wake. 
Total area of the jets in question. 
Aspect ratio of the planform. 

Width of current body config. 
Momentum coef. based on nozzle. 
Vertical position of the jet based 
on the planform. 

Diameter of the jets in question. 
Flag which notifies JIEPIE which 
planform is in use. 

Height of aircraft. 

Adjustment factor used for flap 
extension 

1.0 - Flaps extended 
.25 - Flaps not extended 

Lift loss retured by STOLWK 
Lift loss out of ground effect. 

Out of ground lift loss 
Mean Aerodynamic Chord. 

Number of nozzles based on which 
nozzle used (Front, Rear) 

Pressure Raito of local jets. 

Jet dynamic pressure 

Free stream dynamic pressure . 

Area of the configuration. 

Area of configuration that is in 
front of nozzles. 

Thrust of the jets in question. 

Flag which notifies STOLWK how 
close the nozzle is to the trailing 
edge of the wing. 

Width to length ratio of nozzels. 
Position of nozzle with respect to 
wing trailing edge (in % chord) 
Lateral spacing of jets. 

Distance of jet center to bodyside. 
Effective velocity factor which 
accounts for the reduction in 
velocity at the rear nozzles due to 
the front nozzle. 

Vertical distance of the nozzles. 


DESCRIPTION 


Nozzle deflection angle number 
counter . 

Height number counter 

Total number of nozzle deflection 

angles. 

Total number of height values. 
Total number of velocity values. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


REC3 


v I 

VO (500) R 

FILES USED: 
LOGICAL UNIT 

74 

75 


O 

O 


Record number for any file which 
replaces a 3 X 3 matrix 
Velocity number counter 
Actual velocity value 


I/O DESCRIPTION 


Direct" access file for storage of lift increment 
to the jet wake on the body 
Direct access file for stroage of lift increment 
due to the jet wake on the wing (with out center 

section) 


COMMONS USED: 
NAME 


FIGPIE 


PIEFLAGS 

PIEWK 


RESPIE 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


description _ _ 

RESult^from all POwer Induced Effects subroutines 

and angle of attack and their counters. 
description 


CALLED BY: 

NAME 

COPPIe’" Controls'execution and coordination of Power Induced 
Effects Module 
ROUTINES CALLED: 


NAME 


DESCRIPTION 


JIEPIE 


Calculates change in lift caused by the jet induce 
Calculates je^wake^ift increments while in STOL flight 


STOLWK 
NOTES: None. 

REFERENCES : 

1 ) None . 

“SSi, VAX 6800. VAX 11/785, SGI IMS « series. 

AU Kipp l Eduard Howard (KEH) , Cal Poly San Luis Obispo, 

" NASA Ames Moffett Field 

REVISION HISTORY: 

DATE INITIALS & DESCRIPTION 

Sh I Eliminated^extraneous spacing and fixed counts 

#include "figpie.inc" 

# include "pieflag. inc" 

#include "piewk.inc" 

# include "respie.inc" 

C Declaration of local variables 

REAL LT_WK, LTJWKB/ lt_wkc, lt_wkw, pi 
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c Assign local STOLWK variables to their respective global configuration 

C ^K^ine variables that do not change with planform configuration 
C and nozzle defination. 

HEIGHT = HT (H) 

MC = MAC 
LT_WK =0.0 
LT_WKB =0.0 
LT_WKW =0.0 
KL_F = KLF 
PI = 3.1415926 

Q0 = 0.00119* (1.69*VO(V))**2.0 
C 

IF (WBFLAG) THEN 
C WINGBODY PLANFORM 

C Assign wingbody planform variables. 

AR = B_WB**2 . 0 / S_WB 
B = B_WB 
S = S_WB 
Z = 0.0 
FIGWK = ’WBDY ' 

C Assign variables for the front nozzles. 

AJ = S_F 
DE = DE_F 
DI = D_F 
N = NUM F 

PER = PI * 2.0 * SQRT (AJ / 3.14159) 

PR = PR_F 
Q = Q_F 
SF = 0.0 
T = T_F 
WL = WL_F 

c YP = set F to the following value to insure that KL_YP equals 1.0. 

YP = YWB_F 
VEFACT =1.0 

XC = (XNOZ_F - (XTE_F - MAC) ) /MAC 
C 

IF (VO(V) .EQ. 0.0) THEN 
LT0 =0.0 
LT_FLP =0.0 
ELSE 

CU = T / ( Q0* VEFACT** 2. ) / S 

C Calculate Lift loss due to the front nozzle 

CALL JIEPIE 
END IF 


C 


determine how close the nozzle is to the trailing edge of 
:he wing minus the flap. 

[F (ABS (XTE_F - XNOZ_F) .LT. MAC/4.0) THEN 
TEFLAG = .TRUE. 


ELSE 

TEFLAG = .FALSE. 
END IF 


AFACT = SQRT ( S / A J * B_WB**2 . 0/S_WB) 
DH = 0.0 
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c 


c 


c 


c 


c 


c 

c 

c 


c 


LT OG = -0 . 00022*SQRT (S/AJ) * (PR_FR** - 0 . 64) * (PER/DE) **1.58 
Calculate lift loss due to the jet wake 
CALL STOLWK 
LT WKB = LT * TT_F 


Assign variables for the rear nozzles if necessary 
IF (NUM_R .GT. 0) THEN 
AJ = S_R 
SF = 0.0 
T = T_R 
DE = DE_R 
DI = D_R 

N = NUM R . , ,,, M , 

PER = PI * 2.0 * SQRT (AJ / 3.14159) 

PR = PR_R 
Q = Q _R 
Y = Y_R 
YP = YWB_R 

VEFAC^^C (X_FR/D_F) - 1 . 0) / ( (X_FR/D_F) + .75) 
XC = (XNOZ_R - (XTE_R - MAC) ) /MAC 


IF (VO (V) .EQ. 0.0) THEN 
LT0 = 0.0 
LT_FLP =0.0 
ELSE 

CU = T / (Q0*VEFACT**2. ) / S 
CALL JIEPIE 
END IF 

IF (ABS (XTE_R - XNOZ_R) .LT. MAC/4.0) THEN 
TEFLAG = .TRUE. 

ELSE 

TEFLAG = .FALSE. 

END IF 

AFACT = SQRT (S/AJ * B_WB**2 . 0/S_WB) 

LT OG°=°-0 . 00022*SQRT (S/AJ) * (PR_FR**-0. 64) * (PER/DE) **1 • 58 
Calculate lift loss due to the jet wake 
CALL STOLWK 

LT WKB = LTJWKB + LT * TT_R 
LTJWKW =0.0 
END IF 


ELSE 

BODY PLANFORM 

Assign body planform variables. 

AR = B_B**2.0 / S_B 
S = S_B 
Z = Z_B 
FIGWK = 'BODY' 

Assign variables for the front nozzles. 
AJ = S_F 
DE = DE_F 
DI = D_F 
N = NUM_F 
PER = PI * 


2.0 * SQRT (AJ / 3.14159) 
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C 

C 


C 

c 

c 


c 

c 

c 


c 

c 

c 


PR = PR_F 
Q = Q_F 
SF = SF_FB 
T = T__F 
WL = WL_F 
Y = Y F 


Use distance to wingbody edge if height of wing is zero, 
otherwis^use the distance to the body edge. 

IF (ZJW .GT. 0.0) THEN 
YP = YB F 


ELSE 

YP = YWB_F 
END IF 


VEFACT =1.0 
XC = 0.0 

IF (VO(V) .EQ. 0.0) THEN 
LT0 =0.0 
LT_FLP =0.0 

ELSE . . . _ 

CU = T / (Q0*VEFACT**2. ) / S 

Calculate Lift loss due to the front nozzle 

CALL JIEPIE 
END IF 

There is no jet flap effect on the body 
TEFLAG = .FALSE. 

AFACT = SQRT (S / AJ * WL_B) 

LT OG Z = B -0 . 00022*SQRT (S/AJ) * (PR_FR**-0 . 64) * (PER/DE) • 58 
Calculate lift loss due to the jet wake 
CALL STOLWK 
LTJWKB = LT * TT_F 

Assign variables for the rear nozzles if necessary 
IF (NUM_R .GT. 0) THEN 
AJ = S_R 
SF = SF_RB 
T = T_R 
DE = DE_R 
DI = D_R 

N = NUM R , _ , .. , Q . 

PER = PI * 2.0 * SQRT (A J / 3.14159) 

PR = PR_R 

Q = Q_R 
Y = Y_R 

Use distance to wingbody edge if height of wing is zero, 
otherwise use the distance to the body edge. 

IF (ZJW .GT. 0.0) THEN 
YP = YB_R 
ELSE 

YP = YWB_R 
END IF 


C 


WL = WL R 
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VEFACT * = ( (X_FR/D_F) - 1 . 0) / ( (X_FR/D_F) + .75) 

IF (VO (V) .EQ. 0.0) THEN 
LTO =0.0 
LT_FLP =0.0 
ELSE 

CU = T / (Q0* VEFACT* *2.) / S 

CALL JIEPIE 
END IF 

C There is no jet flap effect on the body 

TEFLAG = .FALSE. 

AFACT = SQRT (S / AJ * WL_B) 

?? qG^= B - 0. 00022* SQRT (S/AJ) * (PR_FR**~0. 64) * (PER/DE) **1- 58 
c Calculate lift loss due to the jet wake 

CALL STOLWK 

LT_WKB = LT_WKB + LT * TT_R 
END IF 
C 

c WING PLANFORM 

C Assign wing planform variables. 

AR = B_W**2 . 0 / S_W 
B = B_W 
S = SJM 
Z = Z_W 
FIGWK = 'WING' 

C Assign variables for the front nozzles. 

AJ = S_F 
DE = DE_F 
DI = D_F 
N = NUM F 

PER = PT * 2.0 * SQRT (AJ / 3.14159) 

PR = PR_F 
Q = Q_F 
SF = 0.0 
T = T_F 
WL = WL_F 

C Yp'se/to the following value to insure that KL_YP equals 1.0. 

YP = -1.0 * DI 
VEFACT =1.0 

XC = (XNOZ_F - (XTE_F - MAC) ) /MAC 
C 

IF (VO(V) .EQ. 0.0) THEN 
LTO =0.0 
LT_FLP =0.0 

ELSE , „ 

CU = T / (Q0*VEFACT**2 . ) / S 

Calculate Lift loss due to the front nozzle 
CALL JIEPIE 
END IF 

Determine how close the nozzle is to the trailing edge of 
IF® (ABS^XTE_F - XNOZ_F) .LT. MAC/4.0) THEN 
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c 


c 

c 

c 


c 


c 


c 


c 


TEFLAG = .TRUE. 

ELSE 

TEFLAG = .FALSE. 

END IF 

AFACT - SQET1S/AJ * B_W**2. 0/S_W) -SORT (S/AJ * B_CS**2 . 0/S_CS> 

LT M Z - W -0.00022*SQRT(S/AJ)*(PR_ r FR**-0.64)*(PER/DE)**1.58 

Calculate lift loss due to the jet wake 
CALL STOLWK 
LT_WKW = LT * TT_F 

Assign variables for the rear nozzles if necessary 
IF (NUM_R .GT. 0) THEN 
AJ = S_R 
SF = 0.0 
T = T_R 
DE = DE_R 
DI = D_R 
N = NUM R 

ppp m pi * 2.0 * SQRT (A J / 3.14159) 

PR = PR_R 
Q = Q_R 
Y = Y_R 

YP = -1 . 0 * DI 

VEFACT = ( (X_FR/D_F) - 1 . 0) / ( (X_FR/D_F) + ."75) 

XC = (XNOZ_R - (XTE_R - MAC) ) /MAC 

IF (VO (V) .EQ. 0.0) THEN 
LT0 = 0.0 
LT_FLP =0.0 
ELSE 

CU = T / (Q0*VEFACT**2. ) / S 

CALL JIEPIE 
END IF 

IF (ABS (XTE_R - XNOZ_R) .LT. MAC/4.0) THEN 
TEFLAG = .TRUE. 

FT 

TEFLAG = .FALSE. 

END IF 

AFACT = SQRT (S/AJ * B_W**2 . 0/S_W) -SQRT (S/AJ 
B_CS**2.0/S_CS) 

LT OG Z = W -0.00022*SQRT(S/AJ)* (PR_FR**-0. 64)* (PER/DE) **1.58 

Calculate lift loss due to the jet wake 
CALL STOLWK 

LT_WKW = LT_WKW + LT * TT_R 
END IF 

CENTER SECTION PLANFORM 

Assign center section planform variables. 

AR = B_CS**2 . 0 / S_CS 
B = B_CS 
S = S_CS 
Z = Z W 
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FIGWK = ' CSEC ' 

Assign variables for the front nozzles. 

AJ = S_F 
DE = DE_F 
DI = D_F 
N = NUM F 

PER = PI * 2.0 * SQRT (A J / 3.14159) 

PR = PR_F 
Q = Q_F 
SF = 0.0 
T = T_F 
WL = WL_F 

YP _ set-to the following value to insure that KL_YP equals 1.0. 
YP = -1.0 * DI 
VEFACT =1.0 
XC = 0.0 

IF (VO(V) .EQ. 0.0) THEN 
LT0 =0.0 
LT_FLP =0.0 
ELSE 

cu = T / (Q0*VEFACT**2. ) / S 
Calculate Lift loss due to the front nozzle 
CALL JIEPIE 
END IF 

AFACT = SQRT (S/AJ * B_W**2 . 0/S_W) -SQRT (S/AJ * B_CS**2 . 0/S_CS) 
DH = 2 W 

LT OG = -0. 00022*SQRT (S/AJ) * (PR_FR**-0. 64)* (PER/DE) **1.58 
Calculate lift loss due to the jet wake 
CALL STOLWK 
LT_WKC = LT * TT_F 

Assign variables for the rear nozzles if necessary 
IF (NUM_R .GT. 0) THEN 
AJ = S_R 
DE = DE_R 
DI = D_R 
N = NUM R 

PER = PI * 2.0 * SQRT (AJ / 3.14159) 

PR = PR_R 
Q = Q_R 
SF = 0.0 
T = T_R 
Y = Y_R 

YP = -1.0 * DI 

WL = WL R , 

VEFACT = ((X_FR/D_F) - 1 . 0) / ( (X_FR/D_F) + .75) 

XC = 0.0 

IF (VO(V) .EQ. 0.0) THEN 
LT0 =0.0 
LT_FLP =0.0 
ELSE 

CU = T / (Q0 * VEFACT** 2. ) / S 

CALL JIEPIE 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

100 


END IF 

AFACT = SQRT ( S / A J * B_W**2 . 0/S_W) -SQRT (S/AJ * 

B_CS**2 . 0/S_CS) 

L? ^G Z = W -0 . 00022*SQRT (S/AJ) * (PR_FR**-0 . 64) * (PER/DE) **1 . 58 
Calculate lift loss due to the jet wake 
call stolwk 

LT_WKC = LT_WKC + LT * TT_R 
END IF 

END IF 

REC3 = LH * LV * (D - 1) + LH * (V - 1) + H 

Lift loss due to wake for body 

WRITE (74, 100, REC=REC3) LT_WKB 

Lift loss due to wake for wing 

WRITE (75, 100, REC=REC3) LT_WKW - LT_WKC 

RETURN 

Format Statements 
FORMAT (F11.5) 

END 


SUBROUTINE JIEPIE 


Ikais 


C ACRONYM: Jet Induce Effects for the Power Induced Effects module 


The purpose of JIEPIE is to calculate the change in the lift 
coefficient caused by the jet induced effects on a f 1 at 
plate. JIEPIE takes in to account aspect ratio, logitud 
vertical, and lateral position of jets, defelction angle, 
distance from side of body, and non-circular or closely 


C spaced jets.. 

C LOCAL VARIABLES (in addition to the above parameters) : 
C NAME TYPE I/O UNITS DESCRIPTION 


C CL_BAS R 

C 

C 

C FP_BAS R 

C 

c K_JFH R 

C 

C K_PR R 

C 

C KL_A R 

C KL_B R 

C KL_D R 

C 

c KL_N R 

C 

C 

C KL XI R 


Basic lift loss on a square 
planform with the jet at the center 
of the planform. 

Basic lift gain due to jet flap 
action 

Adjustment factor Jet Flap 
calculation for aircraft heigt. 
Adjustment factor for Net Jet 
Pressure Ratio 

Adjustment factor for aspect ratio 
Adjust for the "jet-flap" span 
Adjustment factor for the jet 
deflection angle. 

Adjustment factor for non-circular 
nozzle configuration (nad closely 
spaced jets) . 

Adjustment factor for longitudinal 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Kl_X2 
KL_Y 
KL_YP 
KL_Z 
VE 


R 

R 

R 


GLOBAL VARIABLES (in addition to 


C PIEWK Common 
C NAME 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


Block 
TYPE I/O 


UNITS 


AFACT 

AJ 

AR 

B 

cu 

DH 

DI 

FIGWK 

HEIGHT 
KL F 


LT 

LT_FLP 

LTO 

LTJDG 

MC 

N 

PR 

Q 

QO 

S 

SF 

T 

TEFALG 


WL 

xc 

Y 

YP 

VEFACT 


R 

R 

R 

R 

R 

R 

C 

R 

R 


R 

R 

R 

R 

R 

I 

R 

R 

R 

R 

R 

R 

L 


R 

R 

R 

R 

R 


I 

I 

I 

I 

I 


I 

I 


0 

0 


0 

I 

I 

I 

I 

0 

I 

I 


Sq. Ft 

Ft 

Ft 

Ft 


Ib/Sq Ft 
lb/Sq Ft 
Sq Ft 
Sq Ft 

lb 


I 

I 

I 


Ft 

Ft 


position of jet (jet interference 

term) . . .. . 

Adjustment factor for longitudinal 
position of jet (jet flap term) 
Adjustment factor for lateral 
spacing of the jets 
Adjustment factor for distance of 
jet center from side of the body. 
Adjustment factor for the vertical 
position of the jet. 

Effective velocity ratio 
the above parameters and local vars) . 


DESCRIPTION 

Area ratios used in calculating 
the lift loss due to the jet wake. 
Total area of the jets in question. 
Aspect ratio of the planform. 

Width of current body config. 
Momentum coef. based on nozzle. 
Vertical position of the jet based 
on the planform. 

Diameter of the jets in question. 
Flag which notifies JIEPIE which 
planform is in use. 

Height of aircraft. 

Adjustment factor used for flap 
extension 

1.0 - Flaps extended 
.25 - Flaps not extended 

Lift loss retured by STOLWK 
Basic lift gain due to jet flap 
action. 

Lift loss out of ground effect. 

Out of ground lift loss 
Mean Aerodynamic Chord. 

Number of nozzles based on which 
nozzle used (Front/ Rear) 

Pressure Raito of local jets. 

Jet dynamic pressure 

Free stream dynamic pressure. 

Area of the configuration. 

Area of configuration that is in 
front of nozzles. 

Thrust of the jets in question. 

Flag which notifies STOLWK how 
close the nozzle is to the trailing 
edge of the wing. 

Width to length ratio of nozzels. 
Position of nozzle with respect to 
wing trailing edge (in % chord) 
Lateral spacing of jets. 

Distance of jet center to bodyside. 
Effective velocity factor which 
accounts for the reduction in 
velocity at the rear nozzles due to 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


the front nozzle. 

Vertical distance of the nozzles. 


RESPIE Common Block 


NAME 


H 

LD 

LH 

LV 

REC3 


TYPE I/O UNITS DESCRIPTION 


I 

R 

R 

R 

I 


0 

1 

I 

I 

0 


V I o 

VO (500) R o 

FILES USED: 

LOGICAL UNIT I/O DESCRIPTION 


Nozzle deflection angle number 
counter . 

Height number counter 

Total number of nozzle deflection 

angles. 

Total number of height values. 
Total number of velocity values. 
Record number for any file which 
replaces a 3 X 3 matrix 
Velocity number counter 
Actual velocity value 


<None> 

COMMONS USED: 
NAME 


PIEWK 


RESPIE 

CALLED BY: 

NAME 

WKCALL 
ROUTINES CALLED: 


DESCRIPTION _ 

Power"induced _ Effects for stolWK and jiepie s - Contains 
all Variables which are passes to the STOLWK and JIEPIE 

RESult^from all PIE subroutines - Contains variables 
which are the main outputs from each subroutine 


DESCRIPTION 

Isolates and controls execution of STOLWK 


NAME 


DESCRIPTION 


<None> 

NOTES : None . 
REFERENCES : 

1) 

Stability 


V ,, rlarV T waiters M. "V/STOL Aerodynamics and 

Hen erson, & ‘control’ Manuar' Naval Air Development Center, 


2 ) 


Aerodynamic Stability and Control : Paramet ers °f STOL Aircraft 


June 1987. 

EI ^ORTRAN^7 7 , VAX 6800, VAX 11/785, SGI IRIS 4D series. 

NON-STANDARD CODE: 

7 . 

AU SppT. : Howard (KEH) , Cal Poly San Luis Obispo, NASA Ames Moffett 

REVISION HISTORY: 

DATE INITIALS & DESCRIPTION 

$$!/» ” Eliminate^extraneous spfcin, and f ixed comments 


C 


186 


# include "piewk.inc" 

# include "respie.inc" 


C 

C 


c 

c 

c 

c 


Vari g^ a ^HTbAS, VE, KL_A. KL_B, KL_X1. U_X2. KL_Y. KL_ Z . 

$ KL_YP, KL_D, K_JFH, KL_N, K_PR 

Determine the effective velocity ratio 

VE=VEFACT * SQRT (QO/Q) at the 

Calculate Cl, basic (lift loss on a square planform with a jet at the 

ceSr o! the planform. (AFWAL-TR-BI-3019 vol III. P9 E-4 

CL BAS = -3.0 * VE**2 . 0 * (SQRT(S/AJ) - 1 . 0) ** (2 . 0/3 . 0) + 
c 35 0 * VE**5.5 * (SQRT(S/AJ) - 1 . 0 ) Q 

Calculate Basic lift gain due to jet flap action (AFWAL-TR-87-3019 

VCl FP BAS*= 4 HAR + / 3.1415926) / (AR + 2.0 + .604 * 

$ - SQRT (CU) + .876 * CU) * 6.3 * CU-.63 - CU * 

$ SIN (DFL (D)/57.296)) / CU 


IF (FP BAS * CU .GT. 1.94 * AR) THEN 
FP BAS = 1 . 94 * AR / CU 
ELSE IF (FP_BAS * CU .GT. 12.57) THEN 
FP BAS = 12.57 / CU 
ELSE IF (FP_BAS .LT. 0.0) THEN 
FP_BAS =0.0 
END IF 


C 

C Adjust for Aspect Ratio 

IF (AR .LT. 1.0) THEN 

KL_A = AR**.05 - .5 * (1.0 - AR)**3.6 

ELSE 

KL A = 1.0 - .4 * (1.0 - 1.0 / AR)**4.0 
END IF 


C 

C 

c 


c 


Adjust for logitudinal position of the jet 
Bodies 

IF (AR .LT. 1.0) THEN 

KL_X1 = 1.35 - .7 * (SF/S) - 2.5 * 
KL_X2 =0.0 
Wings 

ELSE IF (AR .GE. 1.0) THEN 


(ABS (SF/S - 0.5) ) **2 . 5 


IF (XC .LE. .75) THEN 
KL_X1 =1.0 
KL X2 = 0.0 

ELSE IF (XC .GT. .75 .AND. XC .LE. 1.5) THEN 
KL_X1 =0.0 
KL X2 = 1.0 

ELSE IF (XC .GT. 1.5 .AND. XC .LT. 3.5) THEN 
KL_X1 =0.0 

KL_X2 = -.5 * XC + 1.75 
ELSE IF (XC .GT. 3.5) THEN 
KL_X1 =0.0 
KL_X2 =0.0 
END IF 
C 


c 


END IF 
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IF (FIGWK .EQ. ' CSEC * ) THEN 
KL_X1 =1.0 
KL_X2 =0.0 
END IF 


C Adjust for the vertical position of the jet. 
KL Z = 1.0 - .15 * ABS(Z/DI) 

C 

C Adjust for lateral spacing of the jets 

IF (Y/DI .LT. 3.0 .AND. Y .NE. 0.0) THEN 
KL_Y = 1.2 - .1 * (Y/DI - 1.0) 

ELSE 

KL_Y =1.0 
END IF 


C Adjust for the distance of the jet center from the 
IF (YP/DI .LT. -.55) THEN 
KL YP = 1.0 

ELSE IF (YP/DI .LT. 0.0) THEN 
KL YP = .85 - .273 * YP/DI 
ELSE IF (YP/DI .LT. 2.0) THEN 
KL YP = .85 - .425 * YP/DI 


ELSE 

KL_YP =0.0 
END IF 


side of the body. 


C Adjust for the jet deflection angle. 

C Ad just - for non-circular^ nozzle configuration^nad closely spaced jets) 
KL N = 1.0 - (14.0 * VE**1 . 5 - 22.0 * VE**2.5) * (1.0 - WL .J) 


C 

c Adjust for the "jet-flap” span 

IF (FIGWK .EQ. 'WING' .OR. AR .GE. 
KL B = N * DI /B 


1.0) THEN 


ELSE 

KL_B =0.0 
END IF 


C 

c Adjust for Net Jet Pressure Ratio 
IF (PR .GE. 1.893) THEN 
K_PR = (PR/1. 893) **.25 
ELSE 

K_PR =1.0 
END IF 


C Adjust Jet Flap calculation for aircraft heigt. 

K_JFH = 1.0 - .055 * (MC/HEIGHT) **1 . 3 

C Make final calculation for Cl 

C Lift loss due to jet interference „ 

" LT0 = CL_BAS * KL_A * KL_X1 * KL_Y * KL_Z * KL_YP * KL_D KL_N 

$ * K_PR 

C Lift gain due to jet flap interaction _ H 

LT FLP = FP BAS * KL_X2 * KL_Z * KL_D KL_B KL_F K_JFH 

C 


RETURN 

END 
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Stolwk 


SUBROUTINE STOLWK 

C 

C ACRONYM: STOL operation - estimation of jet WaKe term 

C PURPOSE: The purpose of STOLWK is to calculate the lift loss due 
C to the jet wake system. 

C LOCAL VARIABLES (in addition to the above parameters) : 

C NAME TYPE I/O UNITS DESCRIPTION 

E yj, R Effective velocity ratio 

q jrj. R _ Factor used in calculating H2D 

C GLOBAL VARIABLES (in addition to the above parameters and local vars) 
C NAME TYPE I/O UNITS DESCRIPTION 


C PIEWK Common Block 
C NAME TYPE I/O UNITS 


DESCRIPTION 


C — 

C AFACT R I 

C 

C AR R I 

C DH R I Ft 

C 

C DI R I Ft 

C LT R O 

C LT_FLP R O 

C 

C LTO R ~ 

C Q R I lb/Sq Ft 

C QO R 0 lb/Sq Ft 

C TEFALG L - 

C 

C 

c WL R I 

C VEFACT R I 

C 

C 

C 



C RESPIE Common Block 
C NAME TYPE I/O UNITS 


Area ratios used in calculating 
the lift loss due to the jet wake. 
Aspect ratio of the planform. 
Vertical position of the jet based 
on the planform. 

Diameter of the jets in question. 
Lift loss retured by STOLWK 
Basic lift gain due to jet flap 
action. 

Lift loss out of ground effect. 

Jet dynamic pressure 

Free stream dynamic pressure. 

Flag which notifies STOLWK how 
close the nozzle is to the trailing 
edge of the wing. 

Width to length ratio of nozzels. 
Effective velocity factor which 
accounts for the reduction in 
velocity at the rear nozzles due to 
the front nozzle. 


DESCRIPTION 


C 


c 

D 

I 

0 

— 

c 





c 

DFL (500) 

R 

I 

deg 

c 





c 

H 

I 

0 

— 

c 

HT (500) 

R 

0 

Ft 

c 

FILES USED 

: 



c 

r 

LOGICAL 

UNIT 

I/O 

DESCRIPTION 


C (none) 

C COMMONS USED: 

C NAME DESCRIPTION 

C 

c PIEWK 
C 
C 


Nozzle deflection angle number 
counter . 

Actual nozzle deflection angle 
value 

Height number counter 
Actual height value 


Power Induced Effects for stolWK and jiepie - Contains 
all variables which are passes to the STOLWK and JIEPIE 
subroutines . 
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respie 


c 
c 

c CALLED BY: 
C NAME 

C 

c WKCALL 


_ .. all PIE subroutines - Contains variables 

S Le r Se"in ‘output 5 from each subroutine 

description 


c 

c 

c 

c 


I solates”and controls execution of STOLWK 
C ROUTINES CALLED: 

C NAME DESCRIPTION ^ 

C 

C <None> 

C NOTES: None. 

c REFERENCES: _ p "r Method for Prediction of the 

c » Rockwell 

June 1987. 

I VAX 6600, VAX 11/785, SGI IRIS « aeries. 

C NON-STANDARD CODE: 

l Hci^E.' Howard (KEH) , Cal Poly San Inis Obispo, NASA As.es Moffett 
C REVISION HISTORl:^ , DESCRIPTI0N 

l KEH Ellmlnat e^extraneous spacing and fixed com me_nts_ 

♦include "respie . inc" 

♦include "piewk.inc" 

C 

REAL ve, kx 

c Determine the effective velocity ratio 

VE=VEFACT * SQRT ( Q°/Q) the distance between the 

C Set KX equal to 1 because KX is Q f the front jet(s). The 

C center of the jet pattern calculated for the front jets and 

C lift loss due to the jet wake is center of the jet 

‘ iS al ^ S g ° ing t0 " Zer ° 

c which causes KX to equal 1.0. 

KX = 1.0 

Test to see which equation to use (near or far away from the TE) 

F Near the trailing edge of the wing (Lift gam) 


C 

C 

c 

c 

c 


c 

c 


If VE equals zero then set LT to LT__FLP 
IF (VE .EQ. 0.0) THEN 
LT = LT_FLP 

ELS tt = LT FLP * (1.0 + . 01/VE**2 . 0 * AFACT 
j * lDFL(D)/90.)**1.34 * ( (HT (H) + DH) /DI 

END IF 

ELS N0t near the trailing .dg. of th. wing (Lift loss) 
LT = LT0 * (l.o - .7 * AFACT * (DFL (D) / yu . ) 
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c 

c 


* ML** (-.35) * <(<HT(H) + DH) /DI> /KX) **(-2. 0) ) 


END IF 
KX = I- 
return 

END 


Fifi-P 


subroutine piep _ _ 

C _ ACRONYM~ Powered~Induced Effects Printing routine 
C 

C PURPOSE: iue . otvie 

convient, easy to read style. 

■ lition to the abc - - * 

I/O UNITS DESCRIPTION 


The purpose of PIEP is to print all the variables in a 


C 

c 

C ' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 



— 

— 


GLOBAL VARIABLES 

(in additior 

NAME 

TYPE 

I/O 

UNITS 


— 

— 

— 

AEND 

R 

I 

deg 

ang fr 

R 

I 

Ft 

astart 

R 

I 

deg 

ASTEP 

R 

I 

deg 

B B 

R 

I 

Ft 

B CS 

R 

I 

Ft 

B JP 

R 

I 

Ft 

B W 

R 

I 

Ft 

B WB 

R 

I 

Ft 

D F 

R 

I 

Ft 

D R 

R 

I 

Ft 

D RCS 

R 

I 

Ft 

DB B 

R 

I 

Ft 

DB CS 

R 

I 

Ft 

DB_W 

R 

I 

Ft 

DB WB 

R 

I 

Ft 

• DE F 

R 

I 

Ft 

DE_FR 

R 

I 

Ft 

DE R 

R 

I 

Ft 

DEND 

R 

I 

deg 

DR 

R 

I 

— 

DSTART 

R 

I 

deg 

; DSTEP 

R 

I 

deg 

; F NAME 

C 

I 

— — — — 


It Oi/uvc 

description 


c 

c 

c 

c 

c 

c 

c 

c 

c 


H 

HEND 
HSTART 
HSTEP 
I CALC 


R 

R 

R 

R 

I 


I 

I 

I 

I 

I 


Ft 

Ft 

Ft 

Ft 


Ending value for angle of attack 
Front and Rear jet deflection ANGle 
Starting value for angle of attack 
Step value for angle of attack 

width of Body 
Width of Center Section 
Width of Jet Pattern 
Width of Wing (Wing span) 

Width of Wing-Body 
Diameter of each Front jet 
Diameter of each Rear jet 
Diameter of Roll RCS nozzle 
Dbar of Body 
Dbar of Center Section 
Dbar of Wing 
Dbar of Wing-Body 

Effective Diameter of Front jets 
Effective Diameter of Front & Rear 
jets combined 

Effective Diameter of Rear jets 
Ending value for jet deflection 
angle 

Density Ratio (Jet / Atm) 

Starting value for jet deflection 

Sip 6 value for jet deflection angle 
Name of file which contains nozzle 
placement & size, body & wing 
planform coordinates 
Height of nozzle exit above ground 
Ending value for altitude 
Starting value for altitude 
Step value for altitude 
Global executation flag for ACSYNT 

1) Input data 

2) Make calculations 
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KB 

KR 

L_B 

L_CS 

L_F 

L _R 

l_wb 

MAC 

MD_RCS 

N_BODY 

n_wing 

N_WB 

NUM 

NUM_F 

NUM_R 

PER_FR 

PP_LID 

PR_FR 

PR_RCS 

PT_RCS 

Q_FR 

Q_RCS 

S_B 

S_CS 

S_JP 

S_F 

S_FR 

S_LID 

S_R 

S_W 

S_WB 

SF_FB 

SF_FWB 

SF_RB 

SF_RWB 

SP_JP 

SPLY_F 

SPLY_R 

T_F 

T_R 

T_RCS 

TP_RCS 

TT_F 

TT_R 

VEND 

VO 

VSTART 


R I 
R I 
R I 
R I 
R I 
R I 
R I 
R I 
R I 
I I 

I I 

I I 

I I 
I I 
I I 
R I 
R I 

R I 
R I 
R I 
R I 

R I 
R I 
R I 
R I 
R I 
R I 
R I 
R I 
R I 
R I 
R I 

R I 

R I 
R I 

R I 

R I 
R I 
R I 
R I 
R I 
R I 

R I 
R I 
R I 
R I 
R I 


Ft 

Ft 

Ft 

Ft 

Ft 

Ft 

lbm/ s 


Ft 


Ft 


lb/sq ft 
lb/sq ft 

lb/sq ft 
Sq Ft 
Sq Ft 
Sq Ft 
Sq Ft 
Sq Ft 
Sq Ft 
Sq Ft 
Sq Ft 
Sq Ft 
Sq Ft 

Sq Ft 

Sq Ft 
Sq Ft 

Sq Ft 

Ft 

Ft 

lb 

lb 

lb 

Rankin 


kts 

kts 

kts 


3) Output necessary data 
Boundary layer factor 
Body contour factor 
Length of body 
Length of Center Section 
Length of Front jet 
Length of Rear jet 
Length of Wing-Body 
Mean Aerodynamic Chord of wing 
Mass flow rate for one RCS nozzle 
Number of data points for Body 
planform 

Number of data points for Wing 
planform . _ 

Number of data points for Wmg-Body 

planform 

Total NUMber of jets 

NUMber of Front jets 

NUMber of Rear jets 

Total perimeter of jets , 

Ratio of perimeter enclosed by lids 

to total perimeterC 

jet Pressure Ratio for all jets 

Roll RCS Pressure Ratio 

Total pressure for one roll RCS jet 

Dynamic pressure for Front and Rear 

jets 

Dynamic pressure for roll RCS jets 

Area of Body 

Area of Center Section 

Area enclosed by Jet Pattern 

Area of Front jets 

Total jet exit area 

Area enclosed by LIDS 

Area of Rear jets 

Area of Wing 

Area of Wing-Body , 

Area ahead of Front jets using body 
planform 

Area ahead of Front jets using the 

wingbody planform 

Area ahead of Rear jets 

Area ahead of Rear jets using the 

wingbody planform 

Actual surface area within area 

enclosed by nozzles 

SPLaY angle of Front jet 

SPLaY angle of Rear jet 

Thrust of Front jets 

Thrust of Rear jets 

Thrust of roll RCS nozzle 

Temperature of flow in roll RCS 

nozzle 

Front Thrust / total Thrust 
Rear Thrust / total Thrust 
Ending value for aircraft velocity 
Forward velocity of aircraft 
Starting value for aircraft 
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c 

VSTEP 

R 

I 

kts 

c 

W F 

R 

I 

Ft 

c 

W R 

R 

I 

Ft 

c 

WIWE 

R 

I 

— ■ — 

c 





c 

WL B 

R 

I 


c 

WL_CS 

R 

I 

— 

c 





c 

WL_JP 

R 

I 


c 





c 

WL F 

R 

I 


c 

WL R 

R 

I 

— 

c 

WL WB 

R 

I 

— 

c 

X BODY ( 500 )R 

I 

Ft 

c 

X FR 

R 

I 

Ft 

c 

X_RCS 

R 

I 

Ft 

c 




Ft 

c 

X WB (500) 

R 

I 

c 

X WING (500) R 

I 

Ft 

c 

XCA_CG 

R 

I 

Ft 

c 





c 

X CA 

R 

I 

Ft 

c 

X CG 

R 

I 

Ft 

c 

XCG C2 

R 

I 

Ft 

c 

XCG C4 

R 

I 

Ft 

c 

XCG F 

R 

I 

Ft 

c 

XCG_I 

R 

I 

Ft 

c 





c 

XCG R 

R 

I 

Ft 

c 

XNOZ F 

R 

I 

Ft 

c 

XNOZ R 

R 

I 

Ft 

c 

Y BODY ( 500 )R 

I 

Ft 

c 

Y F 

R 

I 

Ft 

c 

YNOZ F 

R 

I 

Ft 

c 

YNOZ R 

R 

I 

Ft 

c 

Y R 

R 

I 

Ft 

c 

Y_RCS 

R 

I 

Ft 

c 




Ft 

c 

Y WB (500) 

R 

I 

c 

Y WING (500) R 

I 

Ft 

c 

YB_F 

R 

I 

Ft 

c 





c 

YB_R 

R 

I 

Ft 

c 





c 

Z B 

R 

I 

Ft 

c 

ZCG I 

R 

I 

Ft 

c 

Z W 

R 

I 

Ft 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


velocity _ 

Step value for aricraft velocity 

Width of Front jet 
Width of Rear jets 

Flow Weight of Inlet / Flow Weight 
of Exit 

Width to Length ratio of Body 
Width to Length ratio of Center 
Section 

Width to Lenght ratio of Jet 

Pattern ^ . . 

Width to Length ratio of Front jets 
Width to Length ratio of Rear jets 
Width to Length ratio of Wing-Body 
X-coordinates of Body planform 
Distance between Front & Rear jets 
Distance of roll RCS nozzle ahead 
of wing trailing edge 
X-coordinates of Wing-Body planform 
X-coordinates of Wing planform 
Distance of center of area ahead of 
CG 

X-coordinate of Center of Area 
X-coordinate of Center of Gravity 
Distance from CG to MAC/ 2 
Distance from CG to MAC/ 4 
Distance Front jet is ahead of CG 
Inlet longitudinal distance ahead 
of CG 

Distance Rear jet is ahead of CG 
X-coordinates of Front NOZzle 
X-coordinates of Rear NOZzle 
Y-coordinates of Body planform 
Distance between Front jets 
Y-coordinates of Front NOZzle 
Y-coordinates of R NOZzle 
Distance between Rear jets 
Distance of roll RCS nozzle in from 

wingtip , _ 

Y-coordinates of Wing-Body planform 
Y-coordinates of Wing planform 
Lateral distance from Body to Front 
jets (for external jets) 

Lateral distance from Body to Rear 
jets (for external jets) 

Height of body base above nozzle 
Inlet vertical distance above CG 
height of wing above nozzle 


FILES USED: 
LOGICAL UNIT 

68 

70 

71 

72 


I/O DESCRIPTION 


0 Sequencial file for table output 

O Direct access file for storage of lift increment 

due to suckdown . , . . 

0 Direct access file for storage of lift increment 

due to fountain , . , . 

0 Direct access file for storage of lift increme 
due to the ground vortex on the body 


o o o n o 


C 73 
C 

C 74 
C 

C 75 
C 

c 

c COMMONS USED: 
C NAME 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 


o 
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Direct access file for storage of lift increment 

Direct Sce!fme V ?or e sto«ge e o"f lift increment 
due to the let wake on the^oy^ u£t incr ement 
duetto the 6 jet wake on the wing (with out center 
section) 


FIGPIE 

PIEFLAGS 

PIERROR 

RESPIE 


CALLED BY 
NAME 


DESCRIPTION _ 

parameters of the aircraft. ontains variables which 
Power Induced Effects FLAGS - contains v« . rrraft 

BESultJ^from all 'power Induced Effects subroutines - 

welocity^jet^defelction angle, 

and angle of attack and their counters. 
description 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


C0PPIE 


controls execution and coordination of Power Induced 
Effects Module 
ROUTINES CALLED^ 

NAME 


DESCRIPTION _ 

Creates output file which is used by ACSYNT 


VAX 11/785, SGI IRIS 4D series. 

Cal Poly San Luis Obispo, NASA Ames Res Ctr. 


JIETAB 
NOTES: None. 

REFERENCES : 

1) None. 

ENVIRONMENT: 

FORTRAN 77, VAX 6800, 

NON-STANDARD CODE : 

? . 

AUTHOR (S) : 

Kipp E. Howard (KEH) , 

^INITIALS & DESCRIPTION 

£”h :: spacing and fixe d comments^ 

finclude "figpie.inc" 

# include "pieflag. inc" 

« include "pierror . inc" 
iinclude "respie.inc” 

C 

REAL pi, div 
INTEGER CHOICE 
C 

pi = 3.1415926 

r; ' rl6 Li B w B_ f B.dP B_CS. L .^L ». 

I !p^DB!cs?^j7 W »c7^>^ ^ KB 



194 


s’S'f! 6 ™ R. MM, PR PR, D_P. PR- PR- DE - F - DE ^' t DE - FR ' KIWE ' 

$ ST, S R, S FR, XCG l7 SPLY_F, SPLY_R, PER™- «*!, 

I W -p W _ R Q~FR L FT L R, X_FR, WL_F, WL_R, 

$ yV Y^r! YB_F, YB_R, YWB_F, YWB_R, PR_F r PR_R, T_F, T_R, 

5 XCG_RSg*r?Sf1pb!W^ 7SF_P™7SF_R»®, !tN02 - F - ™02_R, ymoz_f, ynoz_r 

w RIT e (6, 999) c2( e ^ 3/ PR_RCS, XCG_C4, E_4, T_RCS, XCA_CG, 

$ THa'i*I80./PI, TP_RCS, KB, THA 3*180 . /FI, P J- RC ?‘ ' EJ' x RCS 
$ THA _ 4*180. /PI,MD_RCS,X_CG, S FA1, Q R CS, X_CA, S FA3, X_ , 

$ S FA4, Y_RCS , SP_FA1 , SP_FA3, SP_FA4, Y_l, Y_3, Y_4, 

$ YP_1, YP_3, YP_4 , SCALE 3 

IF (N BODY .GE. N_WING .AND. N_WB .EQ. 0) THEN 

ELSE IF N 7n°BODY .LT. N_WING .AND. N_WB .EQ. 0) THEN 
N = NJWING 
ELSE 

N = N_WB 
END IF 


WRITE (6,990) 
DO I = 1,N 


$ 

$ 


IF (I .LE. N_CS 
WRITE (6,995) 

ELSE IF (I .LE. 
WRITE (6,991) 

ELSE IF (I .GT. 

WRITE (6, 992) 
ELSE IF (I .LE. 

I .GT. 

WRITE (6, 993) 
ELSE IF (I .LE. 
WRITE (6,996) 


.AND. I .LE 
X_BODY ( I ) , 
XJWB(I), Y 
N_BODY .AND 
X_BODY ( I ) , 
X_WB(I), Y 
N_BODY .AND 
X_WING (I ) , 
N_BODY .AND 
N_CS) THEN 
X_BODY (I ) , 
N_CS .AND. 
X_BODY ( I ) , 
X CS(I), Y 


N WING) THEN 

Y BODY (I ) , XJWING (I ) , Y_WING (I ) 
WB (I ) , X_CS(I), Y_CS (I) 

~ I .LE. NJWING) THEN 
Y_BODY (I) , X_WING (I ) , 

WB (I) 

7 I .LE. NJWING) THEN 
Y_WING (I ) , XJWB(I), Y_WB(I) 

. I .GT. N WING .AND. 


Y WING (I) 


Y_BODY (I ) , X_WB (I) 
I .GT. NJWING) THEN 
Y_BODY (I) , XJWB(I) 
CS(I) 


Y JWB ( I ) 

Y WB (I ) 


T?T 

WRITE (6,994) 
END IF 


X WB (I) , Y_WB ( I ) 


END DO 

WRITE (6,800) DBERR, SDAERR, T_ERR 

990 FORMAT (/7X, ’Body’ , 13X, -Wing’ , 11X, ’Wingbody* , 8X, -Center Sec ,/5X, 
$ 'X’,6X, ' Y 1 , 3 (9X, ' X' , 6X, ’Y’)) 

991 FORMAT (IX, 2 (F7.2) , 2 (3X, 2 (F7.2) ) ) 

992 FORMAT (IX, 16X, 2 (F7 . 2) , 3X, 2 (F7.2) ) 

993 FORMAT (IX, 2 (F7 . 2 ) , 20X, 2 (F7 . 2) ) 

994 FORMAT (35X, 2 (F7 . 2) ) 

995 FORMAT (IX, 2 (F7 . 2) , 3 (3X, 2 (F7.2) ) ) 

996 FORMAT (IX, 2 (F7 . 2) , 17X, 2 (3X, 2 (F7. 2) ) ) 

997 FORMAT (1X,A18/ _ . 

$ IX, ' Body ' , 11X, 'Wing' , 11X, 'Wing-Body* , 6X, ' Jet Pattern 

$ IX, 'Center Section', ..... 

' , IX, ' , IX, ' ' 


$ /IX, ’■ 
$ IX,'- 


',ix, ' 



998 


$ 

/’ 

B B= ' 

$ 

1 

B CS= ’ 

$ 

/■ 

L B=’ 

$ 

F7 

.2, 

$ 

/' 

S B=' 

$ 

1 

S cs=' 

$ 

/* 

DB B= ' 

$ 

1 

DB CS=' 

$ 

/' 

WL B= ' 

$ 

t 

WL CS=' 

$ 

/’ 

Z B= ' 

$ 

/’ 

KR= 


, 71 . 2 ,' 

, 71 . 2 , 

,71 .2, 15X, ' 


, 71 . 2 , ' 
, 71 . 2 , 
,71.2 , ' 
, 71 . 2 , 
, 71 . 2 ,' 
, 71 . 2 , 
, 71 . 2 , ' 
, 71 . 2 ) 
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B_W=',F7.2,' B_WB=' ,71 .2, ' B_JP=',F7.2, 

LJWB=' ,71.2, ' S_JP=' ,71.2, ' L_CS=' , 
SJW=',F7.2, ' S_WB=',F7.2, ' S_LID=' , F7 . 2, 

DB_WB=' ,F7.2, ' 

WL WB=',F7.2, ' 


DB_W=’ ,F7.2, ' 
MAC=' ,71 .2, ' 


SP _jp=',F7.2, 
WL_JP= ' , F 7 . 2 , 


Z W=\F7.2,16X, ’PP_LID=',F7.2, 


$ /ix^Front Nozzles’, 2X, 'Rear Nozzles’ , 3*. ’Both Nozzles', 3x, 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


9 / 

'Misc. Nozzles', 
/IX, 


■',1X, '■ 


NUM F=' 

,17, ' 

NUM R= ' , I 

D F=' 

,71.2, ' 

D R= 1 

DE 7=' 

,71.2, ' 

DE R= ' 

S F=' 

,71.2, 

S R=' 

SPLY F= ' 

,71.2, 

SPLY R= ' 

W F=' 

,71.2, 

W R= ' 

L F=' 

,71.2, 

L R= ' 

WL F= ' 

,71.2, 

WL R= 1 

Y F= ' 

,71.2, 

Y R= ' 

YB F=' 

,71.2, 

YB_R= ' 

YWB F= ' 

,71.2, 

YWB R=' 

PR F= ' 

,71.2, 

PR R=' 

T F=' 

' ,71.1, 

T_R=' 

TT F=' 

' ,71.2, 

TT r= 

Q F=' 

' ,71.1, 

Q_R= 

XTE F= 

' ,71.2, 

XTE R= 

XCG F= 

' ,71.2, 

XCG R= 

SF FB= 

' ,71.2, 

SF_RB= 

SF FWB= 

' ,71.2, 

SF RWB= 

XNOZ F— 

' ,71.2, 

XNOZ R= 

YNOZ F= 

' ,71.2, 

YNOZ_R= 


999 


/' 

/' 

/’ 

/' 

/' 

/' 

/' 

r 
r 
r 
r 
r 
/' 
r 
/' 

/• 

/' 

/' 

/' 

/' 

r 

FORMAT ( 


' ,1X, ' 

NUM=',I7, ' PR_FR=' ,F7.2, 
l SX ' DR= ',71.2, 

' DE_FR=' ,F7 .2, ' WIWE=',F7.2, 

' S_FR=',F7.2, ' 

1 PER_FR=' ,F7.2, ' 

' Q_FR=',F7.1, 

' X FR=\F7.2, 


XCG_I= ' ,71 .2, 
ZCG_I=',F7.2, 


$ F /lX^Fountain Arms’ , 2X, 'RCS Nozzles’ , 4X, ’Misc. 

/ix,’ 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


/ 

/’ 

/' 

/’ 

r 

/' 

/' 

/' 

/’ 

/’ 

/• 

r 

/■ 

/• 

r 

/' 

r 


E_1=',F7.2, ' 

E 3=',F7.2, ’ 

E 4=' ,71 .2, ' 

THA 1=' , F7 . 2, ' TP_RCS=' ,F7.2, ' 
THA _ 3=',F7.2, ' PT_RCS=’,F7.2, 

— - t ^ *-» n i *jtr\ 1 FT 1 


% f 1 1 f ix, 1 

D RCS=' ,F7.2, ’ XCG_C2=' ,F7.2, 
PR~RCS= ’ , F7 . 2 , ' XCG_C4= ’ , F7 . 2 , 
T~RCS=',F7.2, ’ XCA_CG=',F7.2, 

• — - • KB=',F7.2, 

KLF=’,F7.2, 
X_CG= ' , 71 .2, 
X CA=’,F7.2, 


l rxn. — — , - . 

THA 4=',F7.2,' MD_RCS= ,71.2, 
S_FA1=' ,F7.2, ' Q_RCS=’ ,F7.1, ' 


S FA3=' ,F7.2, ' 
S_FA4=',F7.2, ’ 
SP FAl= ' ,71 .2, 
SP_FA3=',F7.2, 
SP FA4=' ,71.2, 
Y_1=',F7.2, 
Y_3=',F7.2, 
Y_4=',F7.2, 
YP_1=’,F7.2, 
YP_3=' ,F7.2, 


X RCS=',F7.2, 
Y~RCS=’,F7.2, 
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$ /' YP_4=',F7.2, 

$ I' SCALE3= 1 , F7 . 2 ) 

800 FORMAT (1 IX, 'Error Codes' /IX, 

$ /IX, 'DEAR error flag (DBERR) = ',Ili 

$ /IX, 'SDAREA error flag (SDAERR) = ',11, 

$ /IX, 'Thrust input error (T_ERR) = ’,11) 

C 

C Create useful tables to graph 
IF (PRTFLG) THEN 
20 WRITE (6,1100) 

READ *, CHOICE 
C 

IF (CHOICE .LT. 0 .OR. CHOICE .GT. 7) THEN 
WRITE (6,*) '*** Invalid Choice ***' 

GO TO 20 
END IF 


GO TO (11111, 100, 200, 300, 400, 500, 600, 700) CHOICE+1 
C 

C Hover ground effect output 

100 WRITE (68, *) '1' 

WRITE (68,*) CONFIG,', Hover Ground Effect' 

C 

IF ( HDEOUT ) THEN 

WRITE (68, * ) 'H/De' 

DIV = DE_FR 
ELSE 

WRITE (68,*) 'Height' 

DIV =1.0 
END IF 
C 

WRITE (68,*) 'dL/dT' 

WRITE (68, *) '6' 

WRITE (68, *) 'OG' 

WRITE (68,*) 'SUCKDOWN' 

WRITE (68,*) 'FOUNTAIN' 

WRITE (68,*) 'LIDS' 

WRITE (68,*) 'TOTAL' 

WRITE (68,*) 'Zero' 

WRITE (68,1105) H 
DO I - 1, H 

WRITE (68, 1110) HT (I) /DIV, H_LTOG, H_LTS (I) , H_LTF (I) , H_LTL (I) , 
$ H_LT (I ) , 0 . 0 

END DO 
GO TO 9999 

Q ****************************************** 

C STOLSF table output 

200 WRITE (6, 1200) 

READ *, CHOICE 
C 

IF (CHOICE .LT. 1 .OR. CHOICE .GT. 3) THEN 
WRITE (6,*) '*** Invalid Choice ***' 

GO TO 200 
END IF 
C 

GO TO (210, 230, 220) CHOICE 
C 

210 WRITE (6, 1230) 
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c 


c 

c 


c 


c 

220 


C 


C 


DO ID = 1, D 

WRITE (6, 1205) ID, DFL(ID) 
END DO 

WRITE (6, 1330) 

READ *, ID 


WRITE (6,1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO (IV) 
END DO 

WRITE (6,1320) 

READ *, IV 


WRITE (68, *) '1' 

WRITE (68, 1250) CONFIG,', 


STOLSF ' , 'DFL=' ,DFL (ID) , ’ VO=\ 


VO (TV) 


IF (HDEOUT) THEN 

WRITE (68, * ) 'H/De' 
DIV = DE_FR 
ELSE 

WRITE (68,*) 'Height' 
DIV =1.0 
END IF 


WRITE (68,*) 'dL/dT' 

WRITE (68, *) '4' 

WRITE (68,*) 'SUCKDOWN' 

WRITE (68,*) 'FOUNTAIN' 

WRITE (68,*) 'TOTAL' 

WRITE (68, * ) 'Zero' 

WRITE (68, 1105) H 

D0 REC3 = LH*LV* (ID-1) + LH*(IV-1) + I 
READ (70, 1109, REC=REC3) SF_LTS 
READ (71, 1109, REC=REC3) SF_LTF 
SF LT = SF LTS + SF_LTF 

WRITE (68,1110) HT(I)/DIV, SF_LTS, SF_LTF, 
SF_LT, 0.0 

END DO 
GO TO 9999 

WRITE (6, 1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT (IH) 

END DO 

WRITE (6, 1310) 

READ *, IH 

WRITE (6, 1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO (IV) 

END DO 

WRITE (6, 1320) 

READ *, IV 


WRITE (68, *) '1' 

WRITE (68, 1250) CONFIG,', STOLSF', 
WRITE (68,*) 'Jet Deflection Angle' 


HT=' , HT (IH) , ' VO=', VO (IV) 
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$ 


c 

230 


C 


C 

C 


C 


WRITE (68,*) 'dL/dT' 

WRITE (68, *) '4' 

WRITE (68, *) 'SUCKDOWN' 

WRITE (68,*) 'FOUNTAIN' 

WRITE (68,*) 'TOTAL' 

WRITE (68, *) 'Zero' 

WRITE (68, 1105) D 
DO I = 1, D 

REC3 = LH*LV*(I-1) + LHMIV-1) + IH 
READ (70, 1109, REC=REC3) SF_LTS 
READ (71, 1109, REC=REC3) SF_LTF 
SF LT = SF_LTS + SF_LTF 
WRITE (68, 1110) DFL(I) , SF_LTS, SF_LTF, 
SF_LT, 0.0 

END DO 
GO TO 9999 


WRITE (6, 1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT (IH) 
END DO 

WRITE (6,1310) 

READ *, IH 


WRITE (6,1230) 

DO ID = 1, D 

WRITE (6, 1205) ID, DFL(ID) 
END DO 

WRITE (6, 1330) 

READ *, ID 


WRITE (68, *) '1' 

WRITE (68, 1250) CONFIG,', 


STOLSF ' , ' HT=' , HT(IH) , 'DFL=' , DFL(ID) 


IF (VEOUT) THEN 

WRITE (68, *) 'Ve' 

DIV = SORT (Q_FR/. 00119/1. 69**2) 

ELSE 

WRITE (68,*) 'Aircraft Velocity' 

DIV =1.0 
END IF 

WRITE (68, * ) 'dL/dT' 

WRITE (68, *) '4' 

WRITE (68,*) 'SUCKDOWN' 

WRITE (68,*) 'FOUNTAIN' 

WRITE (68,*) 'TOTAL' 

WRITE (68,*) 'Zero' 

WRITE (68,1105) V 
DO I = 1, V 

REC3 = LH*LV* (ID-1 ) + LH* (1-1) + IH 
READ (70, 1109, REC=REC3) SF_LTS 
READ (71, 1109, REC=REC3) SF_LTF 
SF LT = SF_LTS + SF_LTF 

WRITE (68, 1110) VO (I ) /DIV, SF_LTS, SF_LTF , 
SF LT, 0.0 


$ 


END DO 
GO TO 9999 
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c 

c 

300 

C 


c 

c 

c 

310 


C 


c 


c 


c 


c 


*★■*★★★■******** 
Print -out for 
WRITE (6, 1300) 
READ *, CHOICE 


********************** 

STOLGV (Ground vortex 


term) 


★ 


IF (CHOICE .LT. 1 
WRITE (6, * ) '*** 

GO TO 300 
END IF 


.OR. CHOICE .GT. 4) THEN 
Invalid Choice ***' 


GO TO (310, 320, 330, 340) CHOICE 

Ground Vortex printout using Altitude as the X Axis 
WRITE (6, 1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO (IV) 

END DO 

WRITE (6,1320) 

READ *, IV 

WRITE (6, 1230) 

DO ID = 1, D 

WRITE (6,1205) ID, DFL(ID) 

END DO 

WRITE (6,1330) 

READ *, ID 

WRITE (6,1240) 

DO IA = 1, A 

WRITE (6, 1205) IA, AOA(IA) 

END DO 
READ *, IA 


$ 


WRITE (68, *) '1' 

WRITE (68,1350) 


CONFIG,', STOLGV',’ VO=\ 
DFL (ID ) , ' AOA= ' , AOA (IA) 


VO (IV) , ' DFL= ’ , 


IF (HDEOUT) THEN 

WRITE (68,*) 'H/De' 
DIV = DE_FR 
ELSE 

WRITE (68,*) 'Height' 
DIV =1.0 
END IF 


WRITE (68, *) 'dL/dT' 
WRITE (68, *) '4' 

WRITE (68,*) 'Body' 
WRITE (68,*) 'Wing' 
WRITE (68, *) 'Both' 
WRITE (68, *) 'Zero' 
WRITE (68, 1105) H 


IeC 4 = Sh*LV*LD*(IA-1)+LH*LV*(ID-1)+LH*(IV-1)+I 

read (72, 1109, REC=REC4) GV_LTB 
READ (73, 1109, REC=REC4) GV_LTW 
GV LT = GV LTB + GV_LTW 
WRITE (68, 1110) HT (I) /DIV, GV_LTB, 
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$ 


c 

c 

320 


C 


C 


$ 


C 


gv_ltw, GV_LT, 0.0 

END DO 
GO TO 9999 

Ground Vortex printout using Velocity as the X Axis 
WRITE (6,1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT(IH) 

END DO 

WRITE (6,1310) 

READ *, IH 

WRITE (6, 1230) 

DO ID = 1, D 

WRITE (6, 1205) ID, DFL(ID) 

END DO 

WRITE (6, 1330) 

READ *, ID 


WRITE (6,1240) 

DO IA = 1, A 

WRITE (6, 1205) IA, AOA(IA) 


END DO 
READ *, IA 
WRITE (68, *) '1' 

WRITE (68, 1350) CONFIG,', 
DFL(ID) , 


STOLGV ' , ' HT=' , 
' AOA= 1 , AOA (IA) 


HT (IH) , ' DFL= ' , 


IF ( VEOUT ) THEN 

WRITE (68,*) 'Ve' 

DIV = SORT (Q_FR/. 00119/1. 69**2) 
ELSE 

WRITE (68,*) 'Aircraft Velocity' 
DIV =1.0 
FTjn TF 


WRITE (68, * ) 'dL/dT' 

WRITE (68, *) '4' 

WRITE (68,*) 'Body' 

WRITE (68, *) 'Wing' 

WRITE (68,*) 'Both' 

WRITE (68, *) 'Zero’ 

WRITE (68, 1105) V 

D ° Jem 1 - Ih*LV*LD*(IA-1)+LH*LV*(ID-1)+LH*(I-1)+IH 

READ (72, 1109, REC=REC4) GV_LTB 
READ (73, 1109, REC=REC4) GV_LTW 
GV LT = GV_LTB + GV_LTW 
WRITE (68, 1110) VO (I) /DIV, GV_LTB, 

$ GV_LTW, GV_LT, 0.0 

END DO 
GO TO 9999 

C Ground Vortex printout using jet deflection angle as X-Axis 

330 WRITE (6,1210) 

DO IH = 1, H 

WRITE (6,1205) IH, HT (IH) 

END DO 



WRITE (6, 1310) 
READ *, IH 


WRITE (6, 1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO(IV) 

END DO 

WRITE (6, 1320) 

READ *, IV 

WRITE (6,1240) 

DO IA = 1, A 

WRITE (6, 1205) IA, AOA(IA) 
END DO 
READ *, IA 


WRITE (68, *) '1 

WRITE (68, 1350) 


, STOLGV 1 , ' HT= ' 


CONFIG, ' . 

VO (IV) , ' AOA= ' , AOA (IA) 
'Jet deflection angle (Deg) 
'dL/dT' 

'4' 

' Body ' 

'Wing' 

'Both' 

•Zero' 

D 


HT (IH) , ' VO=' 


WRITE (68,*) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68, *) 

WRITE (68, *) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68, 1105) 

D0 L;C4 1 = LH*LV*LD* (IA-1)+LH*LV* (I-1)+LH* (IV-1)+IH 
READ (72, 1109, REC=REC4) GV_LTB 
READ (73, 1109, REC=REC4) GV_LTW 
GV LT = GV_LTB + GV_LTW 
WRITE (68,1110) DFL(I) ,GV_LTB, 

GV LTW, GV_LT, 0.0 


END DO 
GO TO 9999 


Ground Vortex printout using angle of attack as t e i 

WRITE (6,1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT (IH) 

END DO 

WRITE (6, 1310) 

READ *, IH 


WRITE (6,1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO(IV) 
END DO 

WRITE (6,1320) 

READ *, IV 


WRITE (6,1230) 

DO ID = 1, D 

WRITE (6, 1205) ID, DFL(ID) 
END DO 

WRITE (6, 1330) 

READ *, ID 
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c 


$ 


$ 


c 

c 

400 

C 


c 


c 


c 

c 

c 

500 

c 


WRITE (68, *) , l l rmAT nM i pt= 1 HTflH) 

WRITE (68, 1350) CONFIG,', S T°LGV , HT , HT ( ) , 

i yq_i^ VO (IV) , ' DFL— , DFL(ID) 

•AOA (DEG) ' 

'dL/dT' 

•4' 

' Body ' 

'Wing' 

'Both' 

' Zero ' 


WRITE (68, * ) 

WRITE (68, * ) 

WRITE (68, *) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68, *) 

WRITE (68, * ) 

WRITE (68, 1105) A 

D0 Lc* 1 - LH*LV*LD* (I— 1) +LH*LV* (ID-1) +LH* (IV-D+IH 
READ (72, 1109, REC=REC4) GV_LTB 
READ (73, 1109, REC=BEC4) GV_LTW 
GV LT = GV_LTB + GV_LTW 
WRITE (68, 1110) AOA (I) ,GV_LTB, 

GV_LTW, GV_LT, 0.0 

END DO 
GO TO 9999 

**★★*★★**★************** 

RCS induced lift loss output 
WRITE (68, * ) 1 1 1 

WRITE (€8/ 1360) CONFIG, 1 , RCSIND 


*★★★★★★*★*■****** 


IF ( VEOUT ) THEN 

WRITE (68, *) 'Ve' 

DIV = SQRT (Q_FR/. 0011 9/1. 69* 2) 

ELSE , . _ , 

WRITE (68,*) 'Aircraft Velocity 

DIV =1.0 
END IF 


WRITE (68, * ) 'dL/dT' 

WRITE (68, * ) '2' 

WRITE (68, *) 'RCS' 

WRITE (68,*) 'Zero’ 

WRITE (68, 1105) V 

WRITERS, 1110) VO (I ) /DIV, RCS_LT(1,I), 0.0 
END DO 


IF (RCSFLG) THEN 
WRITE (6, 1400) 
END IF 


GO TO 9999 


★*★*★*★★★★******** 


STOLWK table output 
WRITE (6, 1500) 

READ *, CHOICE 


IF (CHOICE .LT. 1 .OR. CHOICE .GT. 3) ^THEN 
WRITE (6,*) '*** Invalid Choice ***'C 

GO TO 500 
END IF 


C 
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510 


C 


C 

C 


c 


C 

520 


C 


C 


GO TO (510, 520, 530) CHOICE 
WRITE (6,1230) 

DO ID = 1, D 

WRITE (6, 1205) ID, DFL(ID) 
END DO 

WRITE (6, 1330) 

READ *, ID 


WRITE (6,1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO (IV) 

END DO 

WRITE (6, 1320) 

READ *, IV 


WRITE (68, *) ’1’ 

WRITE (68, 1550) CONFIG, , 


STOLWK' 


' DFL=' ,DFL(ID) , ' 


IF (HDEOUT) THEN 

WRITE (68,*) ’H/De' 
DIV = DE_FR 

ELSE , , 

WRITE (68,*) 'Height' 
DIV =1.0 
END IF 


'dL/dT’ 
• 4 ' 

' BODY ' 
'WING' 
'TOTAL' 
' Zero' 

H 


WRITE (68, * ) 

WRITE (68, *) 

WRITE (68, * ) 

WRITE (68, * ) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68, 1105) 

00 RECS 1 ^ LH*LV* (ID-1) + LH* (IV-1) 
READ (74, 1109, REC=REC3) WK_LTB 
READ (75, 1109, REC=REC3) WK LTW 


+ I 


WK LT = WK_LTB 
WRITE (68, 1110) 

END DO 
GO TO 9999 


+ WK_LTW 
HT (I) /DIV , WK_LTB , 
WK LT, 0.0 


WK LTW, 


WRITE (6, 1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT (IH) 

END DO 

WRITE (6,1310) 

READ *, IH 


WRITE (6, 1230) 

DO ID = 1, D 

WRITE (6, 1205) ID, DFL(ID) 
END DO 

WRITE (6, 1330) 

READ *, ID 


WRITE (68, *) ’1' 


VO=' , VO (IV) 
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_ T . , cTn-LWK' 1 HT=' , HT(IH) , 'DFL-' , DFL(ID) 
WRITE (68, 1550) CONFIG, 1 , STOLWK, 


IF { VEOUT ) THEN 

WRITE (68, * ) 'Ve* 24 

DIV = SORT (Q_FR/ . 00119/1 .69 2) 

ELS WRITE ( 68 , * ) -Aircraft Velocity 1 

DIV =1.0 
PMD IF 


C 


$ 


c 

530 


C 


WRITE (68, *) 'dL/dT* 
WRITE (68, *) '4' 

WRITE (68,*) 'BODY 1 
WRITE (68,*) 'WING 1 
WRITE (68,*) 'TOTAL' 
WRITE (68,*) ’Zero' 
WRITE (68, 1105) V 


>0 RECS 1 ^ LH*LV* (ID-1) + LH* (1-1) + IH 
READ (74,1109, REC=REC3) WK LTB 
READ (75, 1109, REC=REC3) WK_LTW 
wv tt = WK LTB + WK LTW 

WWTE (68,1110) VO (lT /DIV, «K_LTB, WK_X.TM, 
t.tt/ t n n 


END DO 
GO TO 9999 


WRITE (6, 1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT(IH) 

END DO 

WRITE (6, 1310) 

READ *, IH 

WRITE (6, 1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO (IV) 

END DO 

WRITE (6,1320) 

READ *, IV 


C 


WRITE (68* 1550^ CONFIG, 1 , ! , 
WRITE (68,*) 'Jet Deflection Angle 
•dL/dT' 

'4' 

•BODY' 

•WING' 

’ TOTAL ' 

'Zero' 

D 


I * HT=', HT(IH) 


WRITE (68,*) 

WRITE (68, *) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68, 1105) 

D ° reM 1 - LH-LV* (1-1) ♦ M*<IV-1I 

READ (74, 1109, REC=REC3) WKJLTB 
READ (75, 1109, REC=REC3) WK_LTW 
WK LT = WK LTB + WK_LTW 
WRITE (68, 1110) DFL (I ) , WK_LTB, 
WK LT, 0.0 


+ IH 


LTW, 


VO= ! , VO (IV) 
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c 

c 

600 

c 


c 

610 


c 


c 


c 


c 


c 


END DO 
GO TO 9999 


******************** 


★ 


Totals table output 
WRITE (6,1600) 

READ *, CHOICE 


IF (CHOICE .LT. 1 
WRITE (6, * ) '*** 

GO TO 600 
END IF 


OR. CHOICE .GT. 4) THEN 
Invalid Choice ***’ 


GO TO (610, 620, 630, 640) CHOICE 
WRITE (6, 1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO (IV) 

END DO 

WRITE (6, 1320) 

READ *, IV 


WRITE (6, 1230) 

DO ID * 1, D 

WRITE (6, 1205) ID, DFL(ID) 
END DO 

WRITE (6,1330) 

READ *, ID 


WRITE (6, 1240) 

DO IA = 1, A 

WRITE (6, 1205) IA, AOA(IA) 
END DO 

WRITE (6, 1340) 

READ *, IA 


$ 


WRITE (68, *) ’1’ 

WRITE (68, 1650) 


CONFIG,’, TOTALS',' 
• AOA= ' , AOA (IA) 


VO=', VO (IV) , 1 DFL— ' , DFL (ID) , 


IF (HDEOUT) THEN 

WRITE (68,*) ’H/De’ 
DIV = DE_FR 
ELSE 

WRITE (68,*) 'Height 
DIV =1.0 
END IF 


•dL/dT' 

'7' 


WRITE (68, *) 

WRITE (68, * ) 

WRITE (68, *) 

WRITE (68, * ) 

WRITE (68, * ) 

WRITE (68, * ) 

WRITE (68,*) 

WRITE (68,*) 

WRITE (68,*) 

WRITE (68, 1105) 

D ° REC3^= LH*LV*(ID-1) + LHMIV-1) 


•OGE' 

'SF' 

'G-VORTEX' 
'JET WAKE' 
’ RCS ' 

' TOTAL ' 
■Zero' 

H 


+ I 
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$ 

$ 

$ 


GV_LTB 
GV_LTW 
WK_LTB 
WK LTW 


REC4 - LH*LV*LD*(IA-1)+LH*LV*(ID-1)+LH*(IV-1)+I 

READ (70, 1109, REC=REC3) SF LTS 

READ (71, 1109, REC=REC3) SF LTF 

READ (72, 1109, REC=REC4) 

READ (73, 1109, REC=REC4) 

READ (74, 1109, REC=REC3) 

READ (75, 1109, REC=REC3) 

SF LT = SF_LTS + SF_LTF 
GV — LT = GV_LTB + GV_LTW 
WK~LT = WK_LTB + WK LTW 
TOT = HLTOGE (ID) + SF_LT + GV_LT 
WK LT + RCS LT(1,IV) 

WRITE (68711101 BT(I)/DIV, m-TOGEUD), 

GV LT, WK_LT, RCS_LT (1, IV) , 

TOT, 0.0 


SF LT, 


END DO 
GO TO 9999 


C 

620 


C 


C 


C 


C 


c 


WRITE (6, 1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT (IH) 

END DO 

WRITE (6,1310) 

READ *, IH 

WRITE (6, 1230) 

DO ID = 1, D 

WRITE (6, 1205) ID, DFL(ID) 
END DO 

WRITE (6, 1330) 

READ *, ID 

WRITE (6, 1240) 

DO IA = 1, A 

WRITE (6, 1205) IA, AOA(IA) 
END DO 

WRITE (6,1340) 

READ *, IA 


$ 


WRITE (68, *) '1' 

WRITE (68,1650) 


CONFIG,’, TOTALS’,' 
’AOA=' ,AOA(IA) 


HT=* , HT (IH) , ’DFL=' ,DFL (ID) , 


IF (VEOUT) THEN 

WRITE (66, * ) ’Ve’ 

DIV = SQRT (Q_FR/. 00119/1. 69**2) 

ELSE , . . . 

WRITE (68,*) 'Aircraft Velocity 

DIV =1.0 
END IF 


WRITE (68, *) 
WRITE (68, *) 
WRITE (68,*) 
WRITE (68, *) 
WRITE (68, * ) 
WRITE (68, *) 
WRITE (68, *) 


•dL/dT’ 

'7' 

'OGE' 

’SF' 

« g-vortex ' 

•JET WAKE' 
'RCS' 
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c 

630 


C 


c 


c 


WRITE (68,*) 'TOTAL' 

WRITE (68, * ) 'Zero' 

WRITE (68, 1105) V 

DO I = 1 / V , ,T 1 X 4. TH 

_ th+LV*(ID-1) + LH* (1-1) + I" 

REC4 = LH*LV*LD* (IA-1)+LH*LV* (ID-D+LH* (I-D+IH 

READ (70, 1109, REC=REC3) SF LTS 


SF_LTF 
GV_LTB 
GV_LTW 
WK_LTB 
WK LTW 


READ (71,1109, REC=REC3) 

READ ( 7 2 , 1 1 0 9 , REC=REC 4 ) 

READ (73, 1109, REC=REC4) 

READ (74, 1109, REC=REC3) 

READ (75, 1109, R£C=REC3) 

SF LT = SF_LTS + SF_LTF 
GV — LT = GV_LTB + GV_LTW 
WK _ LT = WK LTB + WK_LTW 
TOT = HLTOGE (ID) + SF_LT + GV_LT + 
WK LT + RCS_LT (1,1) 

WRITE (68, 1110) VO(I)/DIV, HLTOGE (ID) 
GV_LT, WK_LT, RCS_LT (1,1), 

TOT, 0 . 0 

END DO 
GO TO 9999 


SF LT, 


WRITE (6, 1210) 

DO IH = 1, H 

WRITE (6, 1205) IH, HT (IH) 
END DO 

WRITE (6, 1310) 

READ *, IH 

WRITE (6, 1220) 

DO IV = 1, V 

WRITE (6, 1205) IV, VO (IV) 
END DO 

WRITE (6,1320) 

READ *, IV 


WRITE (6,1240) 

DO IA = 1, A 

WRITE <6, 1205) IA, AOA(IA) 
END DO 

WRITE (6,1340) 

READ *, IA 


WRITE (68, *) '1' 

WRITE (68, 1650) CONFIG,', TOTALS , HT 
' AOA= ' , AOA ( I A ) 

'Jet Deflection Angle' 
'dL/dT' 

'7' 

'OGE' 

'SF' 

' G-VORTEX ' 

'JET WAKE' 

' RCS ' 

' TOTAL ' 

'Zero’ 


HT (IH) , ' VO=',VO(IV), 


WRITE (68, * ) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68, *) 

WRITE (68,*) 

WRITE (68, *) 

WRITE (68, *) 

WRITE (68,*) 

WRITE (68, * ) 

WRITE (68, *) 

WRITE (68,1105) D 
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$ 

$ 


C 

640 


orri = LH*LV* (I — 1) + LH*(IV— 1) + IH 

^C4 = LH*LV*LD*(IA-1)+LH*LV*(I-1)+LH*(IV-1)+IH 

READ (70, 1109, REC=REC3) SF_LTS 
SF LTF 


GV_LTB 
GV_LTW 
WK_LTB 
WK LTW 


READ (71, 1109, REC=REC3) 

READ ( 7 2 , 1 1 0 9 , RE C=REC 4 ) 

READ ( 7 3 , 1 1 0 9 , REC=REC 4 ) 

READ (74, 1109, REC=REC3) 

READ (75, 1109, REC=REC3) 

SF LT = SF_LTS + SF_LTF 
GV _ LT = GV_LTB + GV_LTW 
WK LT = WK LTB + WK_LTW 
TOT = HLTOGE ( I ) + SF_LT + GV_LT + 
WK LT + RCS_LT ( 1 , I V ) 

WRITE (68, 1110) DFL(I), HLTOGE(I), 
GV LT, WK_LT, RCS_LT (1 , IV) , 
TOT, 0 . 0 

END DO 
GO TO 9999 


SF LT, 


WRITE (6, 1210) 

DO IH = 1, H 

WRITE (6, 1205) 
END DO 

WRITE (6,1310) 
READ *, IH 


IH, HT (IH) 


WRITE (6,1220) 

DO IV = 1, V 

WRITE (6, 1205) 
END DO 

WRITE (6, 1320) 
READ *, IV 


IV, VO (IV) 


WRITE (6,1230) 

DO ID = 1, D 

WRITE (6, 1205) 
END DO 

WRITE (6,1320) 
READ *, ID 


ID, DFL(ID) 


WRITE (68,*) 

1 1 * 

WRITE (68, 1650) CONFIG,', TOTALS , HT 
' DFL= 1 , DFL (ID) 

WRITE (68, *) 

'Aircraft Angle of Attack' 

WRITE (68, *) 

'dL/dT' 

WRITE (68,*) 

'7' 

WRITE (68, * ) 

'OGE' 

WRITE (68, * ) 

■SF' 

WRITE (68,*) 

' G-VORTEX ' 

WRITE (68,*) 

•JET WAKE' 

WRITE (68, * ) 

' RCS ' 

WRITE (68, *) 

'TOTAL' 

WRITE (68,*) 

'Zero' 

WRITE (68, 1105) A 
DO I = 1, A 


HT (IH) , 1 VO=',VO(IV), 


REC3 = LH*LV* (ID-1 ) + LH* (IV-1) + IH 

REC4 = LH*LV*LD* (I-1)+LH*LV* (ID-1) +LH* (IV-1) +IH 



o o 
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700 


C 

C 

9999 


C 

1100 


1105 

1109 

1110 

C 

1200 


1205 

1210 

1220 

1230 

1240 

1250 

C 


READ (70, 1109, REC=REC3) SF_LTS 

READ (71, 1109, REC=REC3) SF_LTF 

READ (72, 1109, REC=REC4) GV_LTB 

READ (73, 1109, REC=REC4) GV_LTW 

READ (74, 1109, REC=REC3) WK_LTB 

READ (75, 1109, REC=REC3) WK_LTW 

SF_LT = SF_LTS + SF_LTF 

GV_LT = GV_LTB + GV_LTW 

WK LT = WK_LTB + WK_LTW 

TOT = HLTOGE(ID) + SF_LT + GV_LT + 

WK LT + RCS_LT (1 , IV) 

WRITE (68, 1110) HT(I)/DIV, HLTOGE (ID) , SF_LT, 
GV_LT, WK_LT, RCS_LT (1 , IV) , 

TOT, 0.0 

END DO 
GO TO 9999 

**************************************** 

JETIND table output 
WRITE (6,1240) 

DO IA = 1, A 

WRITE (6, 1205) IA, AOA(IA) 

END DO 

WRITE (6, 1320) 

READ *, IA 

CALL JIETAB(IA) 


CLOSE (68) 
GO TO 20 
END IF 


FORMAT (15X, 'OUTPUT DATA TO TABLE FORMAT' 

• ///5X, ' 0 - Quit table generation section' 

Output table with all hover results (dL/dT vs Height) 
Tables with results from STOLSF (any) ' 

Tables with results from STOLGV (any) ’ 

Table with results from RCSIND' 

Table with results from STOLWK (any) ' 

Table with totals from all routines' 

///5X, ' 7 - Table for JETIND' 

//5X, 'Choose an option') 


/ /5X, '1 
//5X, '2 
//5X, ' 3 
/ /5X, '4 
/ /5X, ' 5 
/ /5X, '6 


FORMAT (IX, 14) 

FORMAT (F11.5) 

FORMAT (IX, F8 . 4 , 3X, 14 (F11.5,2X) ) 


» 


FORMAT (IX, • ************»’'’'’' , 

$ /XSX , ’ STOLSF Table generation section (Suckdown/Fountain; , 
$ // /5X, 1 1 - Output table based on height', 

$ //5X, ' 2 - Output table based on aircraft velocity’ 

$ //5X, ' 3 - Output table based on jet deflection angle', 

$ ///5X, 'Choose an option') 

FORMAT (5X,I3, ' — > ',F6.1) 

FORMAT (//3X, ' H Number ', 4X, ' Height ' ) 

FORMAT (//3X, 'V Number' , 4X, 'Velocity' ) 

FORMAT (//3X, 'D Number ', 4X, ' Def Angle') 

FORMAT (//3X, 'A Number ', 4X, 'Angle of Attack’) 

FORMAT (1X,A18,A8,2 (2X,A4,F3.0) ) 
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1300 FORMAT (IX, '* * * r j nn section (Ground Vortex) ' / 

S /15X ,'STOLGV Table generation section ju 

c / /=,Y n - output table based on height , 

* //S'. 2 - Output table based on aircraft velocity' 

! //S' -3 - £££ table based on jet deflection angle , 

$ //5x!' 4 - Output table based on aircraft angle of attack , 

$ ///5X, 'Choose an option') ^ (H Number) . , 

1310 FORMAT (IX, 'Enter your choice Air craft Velocity (V Number)’) 

1320 FORMAT (IX, 'Enter your choice for ^craft Velo y (D Number)') 
1330 FORMAT (IX, 'Enter your choice for Defiecti y q£ Attack 

1340 FORMAT (IX, 'Enter your choice for Aircr 
$ (A Number) ’ ) 

1350 FORMAT (IX, A18, A8, 3 (2X, A4, F3 . 0) ) 

1360 FORMAT (IX, A18, A8) 

»00 FOFmTISX, 

s 5X '* RCS table output could be incorrect / 

| 5x! '* because the ratio of wing area over 

» 

1500 $ F /^’ ( STOL» xlble* generation section (jet KaKel'. 

£ III 5X *1 - Output table based on height , . , 

* y/Jr'' 2 - output table based on aircraft velocity' 

| //5x',' 3 - Sut table based on jet deflection angle' 

$ ///5X, 'Choose an option') 

FORMAT (IX, A18, A8, 2 (2X, A4,F3. 0) ) 

********* 




1550 

C 

1600 


FORMAT (IX, ' * ******* ***** 

$ /15X, 'Table generation for Totals , _ 
s ///5X '1 - Output table based on height , , 

? sx '2 - Output table based on aircraft velocity' 

| //5X '3 - K table based on jet deflection angle' 

$ //5x! ' 4 - Output table based on Aircraft Angle of Attack , 

$ ///5X, 'Choose an option') 

1650 FORMAT (IX, A18, A8, 3 (2X, A3,F3. 0) ) 

11111 RETURN 
END 


* * * * ' 


Dist 

FUNCTION DIST(X1,Y1,X2,Y2)^ ^*************** 

C THIS*FUNCTION CALCULATES THE DISTANCE BETWEEN THE TWO GIVEN 
C COORDINATES IN THE (X,Y) PLANE. 

Q 

r GIVEN: TWO POINTS (XI, Yl), (X2, Y ^) 

C FIND: THE DISTANCE BETWEEN THE TWO POINTS 

REAL BLEEP, DIST, XI, Yl, X2, Y2 

C BLEEP = (X2-X1 ) **2 + (Y2-Y1)**2 

DIST = SORT (BLEEP) 


RETURN 

END 



o o 


211 


c 

c 

c 

c 


Perpdia 

SUBROUTINE PERPDIS (X, Y, MLINE, BLINE, dist ) 


THIS* SUBROUTINE CALCULATES THE DISTANCE FROM A POINT TO A LINE IN A 
PARTICULAR DIRECTION DEFINED BY A SLOPE. 

REAL MLINE, a,b, c,x,y, dist 


******* 


******* 


A = -MLINE 
B = 1.0 
C = -BLINE 


C 


CALCULATE 
DIST = (A 


PERPENDICULAR DISTANCE BETWEEN POINT AND LINE 
* X + B * Y + C) /SQRT (A**2 + B) 


RETURN 

END 


I interp 

SUBROUTINE LINTERP (X, XI, X2, Yl, Y2, Y) ******* 

p****************** 

c PURPOSE: THIS SUBROUTINE PREFORMS LINEAR INTERPOLATION. 

GIVEN: TWO POINTS (XI, Yl), (X2,Y2) W , A nATwre 

A VALUE (X) ON THE X-AXIS BETWEEN THE TWO POINTS 

FIND* A VALUE (Y) THAT CORRESPONDS TO THE VALUE (X) THAT LIES 
ALONG THE LINE DEFINED BY THE TWO POINTS. 


C 

c 


real X,X1,X2,Y,Y1,Y2 
Y = Yl + (Y2-Y1)/(X2-X1)MX-X1) 

RETURN 

END 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Crossin 

SUBROUTINE CROSSIN (XI , Yl , X2, Y2, X3, Y3, X4, Y4, x, y ) * 

* * ************************** 

THTq SUBROUTINE CALCULATES THE INTERSECTION OF TWO LINES, EACH LINE 

JSyn? ™ pS£^ each of the lines end-points lie on the same 

X-COORDINATE 

GIVEN: FOUR POINTS THAT DEFINE TWO CROSSING LINES (AS SHOWN) 

Y 

X 4 

1 /I 

X / I 

l\ / I 
I \/ I 
I /\ I 
1/ \ I 

3 X \ I 

I \l 

I X 2 
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I T T A 

0 I L — 

o XI x X2 

find: the INTERSECTION OF THE TWO LINES <x,y) 

REAL Xl,Yl,X2,Y2,X3,Y3,X4,Y4,X,y, SLOPE1, SK)PE2, Bl, B2 

SLOPE1 = (Y2 - Y1J/JX2 - XI) 

SLOPE 2 = (Y4 - Y3)/(X4 - X3) 

Bl = -Xl*SLOPEl + Y1 
■no = -x 3* SLOPE 2 + Y3 

CALL LINECRO (SLOPE1 , Bl , SLOPE2 , B2 , x, y ) 

return 

END 

\ -inecro 

SUBROUTINE LINECRO (SLOPEl , Bl^SLOPE2, B2^x^0 ^ * * * * * 

THIS* SUBROUTINE CARTES* THE INTERSECTION OF WO LINES 

|LOPn^ «**£™™* Sir i* 

* 

i \ / 

I line i\ / 

\ 1 

\ / 

Y /\ 

: , / \ 

~ I LINE 2 / \ 

: / \ 

1 ! / ' 
cl/ x 

C o I J 

C 0 x 

c FIND: THE INTERSECTION OF THE TWO LINES (x,y) 

C REAL SLOPE1/B1, SLOPE2,B2, x, y 

C y = SLOPE2* (B2-B1) / (SLOPE1 - SLOPE2) + B2 

C IF (SLOPE1 .EQ. 0.0) THEN 

X = (Y - B2) /SLOPE2 

ELSE 

X = (Y - Bl ) / SLOPE1 
END IF 


RETURN 

END 
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Polvar 


SUBROUTINE POLYAR 



c ACRONYM: POLYgon ARea 


The”purpose of POLYAR is to calculate the area of a ploygon 


PURPOSE. defined a number of points. 

LOCAL VARIABLES (in addition to the_ above_paran,eters) . 


NAME 


TYPE 


I/O UNITS DESCRIPTION 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


I I 

SUM R 

SUB R 

GLOBAL VARIABLES 


I 

I 


NAME 


TYPE 


POINTS I 

XPTS ( 500) R 
YPTS (500 ) R 
TOTAL R 

FILES USED: 
LOGICAL UNIT 

(none) 

COMMONS USED: 
NAME 


General purpose counter 

Portion added to total 

Portion subtracted from total 

(in addition to the above parameters and local vars) : 
I/O UNITS DESCRIPTION _ 

HI Number of points (not to exceed 500) 

X-coordinates of polygon 

Y-coordinates of polygon 

Total area enclosed by the polygon. 


I 

I 

I 

I/O DESCRIPTION 


DESCRIPTION 


POLYGON 


CALLED BY: 
NAME 

FINVAR 

CENTAR 


of area. 


DESCRIPTION 


Calculates all variables which have not been defined by 
ncpr nr set to a default value 
Catenates the canter of area, area and area rn front of 


a point for a given planform 


ROUTINES CALLED: 

name description 


(none ) 

NOTES: None. 

REFERENCES : 

1) None. 

VAX 6800, VAX 11/085, SGI IRIS 4D series. 

NON-STANDARD CODE: 

None . 

AU Kipp T. ' Howard (KEH) , Cal Poly San Luis Obispo, 


NASA Ames Res Cntr 


REVISION HISTORY: 
DATE INITIALS 

05/15/90 KEH 


& description 

°0V»m £”h L EliminatedTextraneous spai ng and fixed commen ts 


c 



# include "misc.in c" 

C 
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C Variable declarations 

real sub, sum 

INTEGER I 


C 


c 


c 

10 


SUM =0.0 
SUB =0.0 

DO 10 I = If POINTS 


IF (I .EQ. POINTS) THEN 
SUM = SUM + XPTS(I) * 
SUB = SUB + YPTS(I) * 


YPTS (1) 
XPTS (1) 


ELSE 

SUM = SUM + 
SUB = SUB + 
END IF 


XPTS (I ) *YPTS (I+l ) 
YPTS (I) *XPTS (I+l) 


CONTINUE 
TOTAL = ABS ( . 5 


(SUM - SUB) ) 


return 

END 


Centar 

SUBROUTINE CENTAR (MODE , XSTART, X, Y^N^OUT^ 

C ACRONYM: CENTer of ARea 

c ”” * r-rMT&T? is to calculate a planform center of 

PURP0SE; ^ea P bSef on the planfon. defined by X end V. 

PARAMETERS : 


NAME 

MODE 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C 

C LOCAL VARIABLES 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


TYPE I/O UNITS 


description 


N 

OUT 

X (500) 
XSTART 


I 

R 

R 

R 


I 

0 

I 

I 


Y (500) R 


NAME 
ALEFT 
ARIGHT 


I 

TEST 

X_CA 

XLEFT 


TYPE 


I 

R 

R 

R 


Flag which tells this routine which 
values to calculate 

1 - Calculate Center of Area 

2 - Calculate Area of planform 

3 - Calculate area in front of 
XSTART 

Number of points in planform 
Value to be returned to calling 
routine. Based on MODE. 
X-coordinate of planform 
point from which to calculate the 
area forward of this point 

j Y-coordinate of planform 

(in addition to the above parameters) : 

I/O UNITS DESCRIPTION 

Left side Area difference for 

bisection method 

Right side Area difference for 

bisection method 

General purpose counter 

Test Area difference for bisection 

method 

_ X-coordinate of Centr of Area 

1 Left side X-coordinate for 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


XRIGHT 


YPT 


GLOBAL VARIABLES 

name type 


Bisection method 

Right side x-coordinate for 

bisection method. 

Y-coordinate of on planform that is 

directly above the guess of the 
center of area 

(in addition to the above parameters and local vars) : 
I/O UNITS DESCRIPTION 


POINTS I 

XPTS (500) R 
YPTS(500) R 
FILES USED: 
LOGICAL UNIT 

(none) 

COMMONS USED: 
NAME 


I 

I 

I/O DESCRIPTION 


Number of points (not to exceed 500) 
X-coordinates of polygon 
Y-coordinates of polygon 


description 


POLYGON 


~~ .. . ncarj in POLYAR when calculating the 

area 3 of S a polygon and CENTAR when calculating the center 
of area. 


CALLED BY 
NAME 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DESCRIPTION 

Calculates”all~varlables which have not been defined by 
the user or set to a default value 
ROUTINES CALLED: 

DESCRIPTION 


FINVAR 


NAME 


LINTERP 

PERPDIS 


POLYAR 
NOTES: None. 
REFERENCES : 

1) None. 
ENVIRONMENT : 
FORTRAN 77, 
NON-STANDARD CODE 
None . 

AUTHOR (S) 


Linear~Interpolates between two X and Y valnes give an 

Calculate^the pSendicular distance between a point 
and a line 

Calculates the area of any polygon 


VAX 6800, VAX 11/785, SGI IRIS 4D senes. 


NASA Ames Moffett 


Kipp E. Howard (KEH) , Cal Poly San Luis Obispo, 

REVISION HISTORY: 

nATE INITIALS & DESCRIPTION 

. . /ni /on tcth — — Code completed and in working order 

ES/S/m SS - Eliminated extr aneons spacing and fixed comment s 

# include "misc.inc" 

C 

C Variable declarations 

REAL X_CA, X (500) , Y(500) 

INTEGER I, N, FIRST 


C 

FIRST — 1 

c Calculate the geometric center of the planform. 
GEOCTR = (X (N) + X(l) ) / 2.0 
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initialize X CA based on the value of XSTART 
IF (XSTART .EQ. 9999.) THEN 
X_CA = GEOCTR 
ELSE 

X_CA = XSTART 
END IF 

Start calculating areas 
1 DO 20 I = 2, N 


C 

C 


10 


C 

C 


c 

c 


IF 


, Y pa LE X {I ) .AND* X CA . GT . X(I-l)) 

^ its area 

DO 5 J = 1, I" 1 
XPTS(J) = X(J) 

YPTS(J) = Y (J) 

CONTINUE 
XPTS(I) = X_CA 
YPTS(I) = YPT 
XPTS (I+l ) = X_CA 
YPTS (I+l ) =0.0 
POINTS = I+l 
Calculate front area 
CALL POLYAR 

sif^P = reJr^alf of planform to calculate its area. 

XPTS (1 ) = X_CA 
YPTS (1) = 0.0 
XPTS (2) = X_CA 
YPTS (2) = YPT 
DO 10 K = I, N 

J = K - I + 3 

XPTS ( J) = X(K) 

YPTS ( J) = * (K) 

CONTINUE 
POINTS = J 
Calculate rear area 
CALL POLYAR 
RAREA = TOTAL 
END IF 


20 CONTINUE 


initialize left and right side for bisection method 
IF (FIRST .EQ. 1) THEN 
TAREA = RAREA + FAREA 
ALEFT = 0.0 - TAREA 
XLEFT = X(l) 

ARIGHT = TAREA - 0.0 
XRIGHT = X (N) 

FIRST = 2 
END IF 

Set OUT to the correct value according to the value of MODE. 
IF (MODE .EQ. 2) THEN 
OUT = TAREA 
GO TO 60 
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C 

C 

c 


c 

c 

c 


c 

c 

50 

C 

60 


ELSE IF (MODE . EQ. 3) THEN 
OUT = FAREA 
GO TO 60 
END IF 


TEST = FAREA - RAREA 

Determine which side TEST is on (Right or Left) 
IF (TEST .LT. 0.0) THEN 
ALEFT = TEST 
XLEFT = X_CA 
ELSE 

ARIGHT = TEST 
XRIGHT = X_CA 
END IF 


Check to see if Areas are within .5% of each other 
(for Center of area calculations) 

IF (ABS (TEST/ (TAREA/ 2.0) ) .LT. .005) GO TO 5 

y CA — (XLEFT + XRIGHT) /2.0 , v CA 

ElSrn to calculate new FAREA and RAREA baaed on the new X_CA 

GO TO 1 


IF (MODE .EQ. 1) OUT - X_CA 


RETURN 

END 


Ssen 

SUBROUTINE SSEN (START, STEP, END, HUM, DSTART, PEND, DNUM, 

End, Number calculator 


Step, 




C ACRONYM: Start, 

PURPOSE: ^purpose of^SENU to^ca loulat e^of 

default values when not enough information is given. 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PARAMETERS : 
NAME 

DEND 

DNUM 

DSTART 

END 

FLAG 


NUM 

START 

STEP 


TYPE I/O UNITS DESCRIPTION 


R 

I 

R 

R 

R 


I 

R 

R 


I 

I 

I 

I 

I 


I 

I 

I 


Default value for ending value 
Default value for number of points 
Default value for starting value 
Ending value of number list 
Flag to which values are set when 
the values are not defined. 

(When setting NUM as undifined use 
the integer equivalent of FLAG.) 
Number of points in number list 
Starting value of number list 
Steping value of number list 


LOCAL VARIABLES (in addition to the ^o^ parameters) ' 
NAME TYPE I/O UNITS DESCRIPTION 


C 

C 


(none) 

GLOBAL VARIABLES 
NAME TYPE 


(in addition to the above parameters and local vars) 
I/O UNITS DESCRIPTION 
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C (none) 

c FI lSiSTuNIT I/O DESCRIPTION 

c 

C (none) 

C 

C COMMONS USED: 

NAME 


DESCRIPTION 


(none) 
CALLED BY: 
NAME 


description 


FINVAR 


not been defined by 

the user or set to a default value 
c BOUT^S C^Eb: scRipii0N 

C 

C (none) 

C NOTES: None. 

C REFERENCES: 

C 1 ) None . 

£ “STi, VAX 6600, VAX 11/785, SGI IBIS 4D series. 

c NON-STANDARD CODE: 

C None . 

t *°S£T. ! Howard (HER). Cal Poly San Luis Obispo, «ASA An,es Bes Cntr 

r* p'FVT^TON HISTORY: 

r Variable Declaration ____ 

REAL START, STEP, END, DSTART, DEND 

INTEGER DNUM, NUM 


C 

C 

c 


IF (START .NE. FLAG) THEN 

IF (END .NE. FLAG) THEN 

IF (STEP .NE. FLAG) THEN 

NUM = INT ( (END - START) / STEP + 1.) 
ELSE IF (NUM .NE. INT (FLAG) ) THEN 

IF (NUM .EQ. 1) THEN 
STEP =0.0 

ELS STEP = (END - START) / (NUM - D 
END IF 

ELSE 

NUM = DNUM 

IF (NUM .EQ. 1) THEN 
STEP =0.0 
ELSE 

STEP = (END 


- START) / (NUM - 1) 
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C 

c 

c 


c 

c 

c 

c 


c 

c 


END IF 
END IF 

ELSE IF (STEP .NE. FLAG) THEN 

IF (NUM .NE. FLAG) THEN 

END = START + STEP * (NUM - 1) 

ELSE 

END = DEND , , , 

NUM = INT ( (END - START) / STEP +1.) 

END IF 

ELSE IF (NUM .NE. FLAG) THEN 
END = DEND 

IF (NUM .EQ. 1) THEN 
STEP =0.0 
ELSE 

STEP = (END - START) / (NUM - 1) 

END IF 

ELSE 

END = DEND 
NUM = DNUM 

IF (NUM .EQ. 1) THEN 
STEP =0.0 
ELSE 

STEP = (END - START) / (NUM - 1) 

END IF 

END IF 

ELSE IF (END .NE. FLAG) THEN 

IF (STEP .NE. FLAG) THEN 

IF (NUM .NE. INT (FLAG)) THEN 

START = END - STEP * (NUM - 1) 

ELSE 

START = DSTART 

NUM = INT ( (END - START) / STEP + 1.) 
END IF 

ELSE IF (NUM .NE. FLAG) THEN 
START = DSTART 

STEP = (END - START) / (NUM - 1) 

ELSE 

START = DSTART 
NUM = DNUM 

STEP = (END - START) / (NUM - 1) 

END IF 


ELSE IF (STEP .NE. FLAG) THEN 

IF (NUM .NE. FLAG) THEN 
START = DSTART 
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END = START + STEP * (NUM - 1) 

ELSE 

START = DSTART 

lS(END - START) / STEP ♦ 1. 

END IF 

ELSE IF (NUM . NE . FLAG) THEN 
START = DSTART 

END = DEND , , 

STEP = (END - START) / (NUM - D 

ELSE 

START = DSTART 
END = DEND 

NUM = DNUM . - . 

STEP = (END - START) / (NUM - U 

END IF 


return 

F.ND 


SUBROUTINE JIETAB (L) 


Jklab 


c 

C ACRONYM: 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE : 


jet induced Effect TABle generator - Example table follows 

, of Heights l_of .Velocities i.of.Deflection.Angles 

— > DFLl Veil Vel2 .... VelN 

Htl LT11 LT12 LtlN 

Ht2 LT21 LT22 Lt2N 


PARAMETERS : 
NAME 


HtM LTM1 LTM2 . 
-> DFL2 Veil Vel2 
Htl LT11 LT12 

etc. etc. etc. 


The purpose of JIETAP 
uses to determine the 


TYPE I/O UNITS 


LTMN 

VelN 

LT1N 

etc. 


is to generate the table which JETIND 
lift loss 

DESCRIPTION 


LOCAL VARIABLES (in addition to 
NAME TYPE I/O UNITS 


Angle of attack which table is to 
be generated 
the above parameters) : 

DESCRIPTION 


I 

J 

K 


c DUMMY (100) 


I 

I 

I 

I 


GLOBAL VARIABLES 
NAME TYPE 


I 

I 

I 

I 


(in addition to 
I/O UNITS 


Height counter 
Velocity counter 
Deflection angle counter 
Dummy array variable to hold total 
results so routine can output 
values in an implied do loop, 
the above parameters and local vars) 
DESCRIPTION 
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C c ““£ C °"°1/0 UNITS DESC RIPTION 

C T Zn Actual'nozzle deflection angle 


c DFL (500) R 

C 

c HT (500) R 

C LD R 

C 

c LH R 

C LV R 

C VO (500) R 

C FILES USED: 

C LOGICAL UNIT 


value 

Actual height value 

Total number of nozzle deflection 

anqles. _ 

Total number of height value . 
Total number of velocity values. 
Actual velocity value 


I/O description 

T sequencial file for table output 


C COMMONS USED: 


DESCRIPTION 


RESPIE 


and angle of attack and their counters. 


C CALLED BY: 


description 


JIETAB 


Creates 


output file which is used by ACSYNT 


C ROUTINES CALLED 


NAME 


description 
S ums the total 


lift increment given array type indices 


C RTOTAL Sums tne rorax xxxu - 

C NOTES: None. 

C REFERENCES: 

C 1) None. 

C ENVIRONMENT: n /785 SGI IRIS 4D series. 

C FORTRAN 77, VAX 6800, VAX 11/7B5, 

C NON-STANDARD CODE: 

C None . 

I "X'l’i Howard (KEHt i cal Poly San Luis Obispo. NASA An,es Res cntr 
r RFVTSION HISTORY : 

\ ss™ W^ SSsun saa 

# include "respie . inc" 

C real RTOTAL, DUMMY (100) 

INTEGER I,J,K,L 

i Output first line of table (Nurber of Altitudes. N»ber of velocitues 

C Number of Nozzle Deflections) 

WRITE (68,*) LH, LV, LD 


C 

c Start Loops 
C 

C Deflection LoopC 
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00 WRITMee^lOO) DFL(K), (V0(j), j - 1 > LV) 

Altitude Loop 

D0 MTSU 

22*2-^ - 

there are no READ statements. 


100 

C 


Velocity Loop 
DO J = 1 , lv 

DUMMY (J) = RTOTAL (I, J,K,L) 


WRITE (68, 100) HT(I), (DUMMY (J) , 
END DO 
END DO 

FORMAT (IX, 101 (Gil . 5, 2X) ) 


J = 1, LV) 


return 

END , 

REAL FUNCTION RTOTAL (I, J, K, L) 


c 
c 
c 
c 
c 
c 

# include 

C 


I 

J 

K 

L 


Altitude variable 
velocity Variable 
Deflection Variable 
Angle of Attack Variables 


respie . inc" 

INTEGER I, J, K, L 


REC3 = LH*LV* (K-l ) + LH*(J-1) + * 

REC4 = LH*LV*LD* (L-l) +LH*LV* (K-l) +LH (J 1) I 

READ (70, 100, REC=REC3) SF LTS 


READ (71, 100, R£C=REC3) 
READ (72, 100, REC=REC4 ) 

READ (7 3 , 1 0 0 , REC=REC 4 ) 

READ (74, 100, REC=REC3) 

READ ( 7 5 , 1 0 0 , REC=REC 3 ) 

SF LT = SF_LTS + SF_LTF 
GV _ LT = GV_LTB + GV_LTW 
WK_LT ■ WK_LTB + WK_LTW 
RTOTAL = HLTOGE(J) + SF 
RTOTAL = RTOTAL 


SF_LTF 
GV_LTB 
GV_LTW 
WK_LTB 
WK LTW 


LT + GV LT + WK_LT + RCS_LT(1,J) 


C 

100 FORMAT (F11.5) 
C 

return 

END 
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This manual will provide the user of the Power Induced Effects Module with 
enough SS fo implement PIE and P^de the programmer w„h 
adequate information to support and/or enhance t 

This work was performed by KipP Edward I Howard for W* Maaers thesis at 
Cal Poly San Luis Obispo as suggested by the STOVoPowereo l 
Technology Branch (FAP).NASA Ames Research Center. 


and Stewart (References 3 and 6). 

Philosophy 

eas^!fde F S,S 

to understand. 

Control 

The Power Induced Effects (PIE) module is rontrolied by the control 
nroaram COPP1E which coordinates the execution of PIE. COPPIE s 
f & *q ma ke calls to’ input and pre-calculation subroutines. These calls are made 
first so all variables are either defined by the user or assigned a defaun va u . 
Within these variables the number, limits, and steps are defined for , eac ” 

independent variable; height, velocity, nozzle deflection Variations "o® each 
attack. COPPIE steps from one to the maximum number of variations for ea^ 

Sepslr^m^ne to^5*.or heighL) h The ai^a/va^Je^ortif^ndependert^ariable 
is calculated and then the control routine for a lift increment(s) is called and/or 
the ned independent variable is incremented. After all independent variables 
have been incremented up to their maximum valuesthen theoutputsubrout 
is called. Figure #1 is a flow chart which shows the basic structure of COPPIE. 
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Each lift increment routine has its own control routine. This routine checks 

SSSSssSa^s'SK 

understand. Further descriptions of these routines are provided in the 
Increment Routines section. 

Input 

Input routines for PIE perform two functions; input of variables, and 
check/modification of variables for consistency. 

The first routine of the input routines reads two input files. The first file 
contains all user defined variables. The second file contains X and 
coordinates of half the configuration planform. This ro^ne 
values for all variables and then reads user defined variables from the first tile. 
ThP advantaae of this style of input over the input in the original programs 
[variables^ Sfentered fn ihe code, hard-coded, Reference 4) is it a Hows the user 
to inDut as many or as few variables (above the minimum configuration 
variables^ as the user desires. It also allows the user to save the configuration 
in a small easy to manipulate files and rerun particular configurations as 
desired The planform file (config.pie) allows a majority of calculation-intensive 
variables to be calculated by PIE 9 which alleviates the user from making tedious 

calculations. 

The second routine assures planforms defined in the second file (config.pie) 
are conSen, the coordinate system defined in PIE If the nose of he 
configuration does not lie on the origin, the routines modify all c00 ^inates of 
the planforms and necessary configuration variables so the nose does he o 
the origin. This makes sure PIE is able to interpret user inputs correctly. 

Preliminary Calculations 

A desirable feature of the Power Induced Effects Module (PIE) is >t contains a 
complete set of variables which defines the aircraft. This allows lift 
control routines to choose variables needed by lift increment routines - J^ a V 
Dre-calculations need to be made to obtain this complete set of variables. 

These pre-calculations take a number of hours by hand for each configura i 
and they change with each new configuration. 

Some of these preliminary calculations were very extensive, such as 
calculations for fountain areas (S_FA1 , SP_FA2, etc...) and dbar, D, (DB_B, 

DB W etc...). Many other preliminary calculations were very simple 

calculations such as nozzle areas (S_F, S_FR) and nozzle distances (X_FR, 

Y R, etc...) but the number of these simple calculations is large. 
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i iff Increm ^t? Routines 

The lift increment routines wer e divided ^^J^^^cu^e th^ntt^crernent. 
based on which ! n ^® R e nde ^ t _^f^ 1 ^ alcu | a ted for hover. These lift increments vary 
The first section is lift t a ins lift increments which vary with 

\^elodty^ jourtl^se^^ 

vetocily. Jet deflection angle, and angle of attack. 

Height 

The hover routines calculate initial to fowardTeiocity and 

fountain which vary ^ th h ®^g* h un V d vorte x, and jet wake lift increments occur 
jet deflection angle. The RCS grouno vo • ^ jn these calculations. 

when a freestream is calculated first and then corrections 

tte^Basto and™* ^me^od^outline^by^uhn (Reference 6). 

the lift increment routine. 

Forward Velocity 

. ,npct i;f+ increment varies with velocity. Ground 

The reaction control system (RCS) are muC h sma || er an d 

Increment based'on pressSierltio 0 ^ calculated next and adjustment factors are 
applied to the results. 

inc^^ 

which can be changed by the user. 

Height, Forward Velocity, and Jet Deflection Angle 

Suckdown, fountain, and jet wake Ht inc ^ d e " n ' CS’SS'fflSJd 
velocity and jet deflection angle. Sue ° h b th c n an ge similarly with 
inside the same lift increment based on the forward 

the independent variables. A he g • hover va | ues multiplied by 

extent of the wall jet. Then the ealeu i factors. The control routine for 

height, forward flight and nozzle de . jt f ons of the nozzles and wether 

, S he"h1g n h “dpasses the correct information to the suckdown and 

fountain lift increment routine. 
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(Retereic'eTs) 6 sTce Z mmhodfmTel sepa?a. $ e SSKSren, 

Lmto beTsed w[ n g and body °r wing/body (one planform which ,s a 

lift increment for the jet wake from front and rear nozzles. This process is 

The calculations for the wing and body are stored separately to allow 
contributions of each planform to be observed. 

Height, Forward Velocity, Jet Deflection Angle, and Angle of Attack 

The around vortex term is calculated based on height, forward velodty 
nozzte deflect! angle, and angle of attack. This is the only term wh.ch vanes 

with angle of attack. 

Thp control routine for the ground vortex term is similar to the jet wake 

control routoe with respect <o?he planform. The ^"^*^« rtn 1 ST 
tn thp n round vortex so only the front nozzles are used in the calculations, un 
increments for the wing and body are calculated and stored separately to allow 
contributions of each planform to be observed 

Output 

Storage of the results of PIE are in files and arrays which can be recalled 
with the use of an index notation. This is done so any type of lookup table can 
be created by the user/programmer. This method of storage allows the 
programmer to configure an output table in any format using simple index 
notation when requesting a value, (i.e. If the user wants a kft inc •ement Jor he 
eighth height, sixth velocity, third deflection angle and fl(,han 9 l ® ,' a Jf, and 
be recalled bv settinq the appropriate index variables, i, j, k, and I to 8, 6, 3, a 
frespSy l TWs feature all!s easy access to the lift increments wh,ch 
facilitates many different types of lookup table output. 

Currently PIE creates one three-dimensional lookup table for ACSYNT. 

This table contains multiple two-dimensional tables baseb ^ s ' negated 

with each individual table based on height and velocity. This 6 t ' n p, n? 
by a single, short subroutine which demonstrates how many other types of 
tables can be generated using similar subroutines. 

Other output options are created for viewing purposes. These tables are 
examples of the many tables which can be generated. Each lift increment as 
well as the total lift increments can be viewed based on two of their four 
independent variables. Currently, outputs are text files which can be read by a 
plotting routine, developed at NASA Ames for the Silicon graphics IRIS 
workstations, and a Macintosh graphing application called KaleidaGraph . 
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Limitations 

PIE cannot calculate lift increments for configurations with five or rnore jets or 

number of jets is reduced to four or less. 

ThP methods used in this code are intended for use in preliminary design 

«sse ,SSSr 


Definitions 

Below are names default values, units and descriptions for all variables 
which can be modified. They are divided into sections to m a R e 'f eas'er to i 
D^cu^vahaWe. 1 These sections are Control Variables, Body Variables, 

Center Section Variables, Wing Variables, Wingbody Variables, Forw 
K vStes Rear Nozzle Variables, Front/Rear Nozzle Vanables, RCS 
Variables, Fountain Variables, and Miscellaneous Variables. 

Most of the variable names were created to enable them to be easily 
recced and understood. All variables consist of six characters or less The 
majority of them consist of a logical description of the variable a ™ . th 

description as to what the variable applies, divided by a Ar example 'is the 
variable S WB which is the planform area of the wingbody. Some ot the otner 
variables were created based on the same variables from other programs 
(Kuhn, Reference 4). 

ThP Default column contains values for the variables which have default 
values Any variaSe which does no. have a default value wi contain either 
“Calculated" or a possibly followed by a letter. The variables with 
“Calculated” in the Default column signify the variable will be calculated based 
on S variables untefs it is defined by the user. The variables wrth a ■•only 

are the minimum necessary input variables, these nee to f v Jnables except 
variables with followed by a letter are also minimum input . variables ® xc ®Pj 
mefhave special considerations given in the Minimum Conhgura ton Varrables 
taction Variables with the same letters are related to one another - All 
variables which need to be calculated are initially set to a flag value which is 
9999.0. This is the only value which a variable can not be set. The o y h 

variables which need to be watched are thrust variables ( — * — > — 
can be 9999.0 for particular configurations. 
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The Type .column ;c^n^a one — 

JSE. 1 pilfers to a *££* value, and "L" refers to a logical value. 

The Units column contains English units of the variable. The indicates 
the variable is dimensionless. 

The Description of Variable column contains a short description along with 
any^speciaf considerations needed when using the parhcular vanable. 


Name Dfilaiilt 

(Control Variables 


AEND 30.0 


Type Units Description of Variable 

Contains all variables which deal with changing 
of the independent variables. The 
number of independent variables are 
restricted to the amount of memory 
available from the computer system. 

There are no error flags when a 
mismatch between the start, end, step 
and number variables. Therefore care 
must be taken to make sure they are 
consistent. It is possible to mismatch 
these variables and still have correct 
output but the start, end, or step values 
might not be the same as they were input. 
An example of this is shown in the 
velocity calculations (VSTEP). 

R deg Ending value for angle of attack (AOA) - 
AOA is the angle between the nose of the 
aircraft and free stream (nose up is 
positive). This value is typically not 
greater then 30° to 45°. It could also be 
less than ASTART. If this variable is set 
to 9999.0 and ASTART, ASTEP and LA 
are defined then AEND will be 
calculated. 


ASTART 0.0 R deg 


ASTEP Calculated R deg 


Starting value for angle of attack - See 
AEND for definition of AOA. This value is 
typically around 0° but it could be greater 
than AEND. If this variable is set to 
9999.0 and AEND, ASTEP, and LA are 
defined then ASTART will be calculated. 

Step value for angle of attack - See 
AEND for definition of AOA. When 
defining this variable, just to be safe, 
make sure steps are equally divisible by 
the difference between AEND and 
ASTART. This value is already defaulted 
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Name 

LA 


DEND 


DSTART 


DSTEP 

LD 


HEND 


HSTART 


Default Type UnilS 


30.0 R deg 


90.0 R deg 


Calculated R deg 


20.*DE FR R Ft 


2.0*DE_FR R Ft 


DeseriPti en nf Variable 

to be calculated so no modification is 

needed. 

Total number of Angle of Attack values - 
This value is typically small (<10) 
because only lift increments which 
change with angle of attack are those for 
the ground vortex. It is the least important 
of the four independent variables. If this 
variable is set to 9999 and AEND, 

ASTART, and ASTEP are defined then 
LA will be calculated. It is possible to set 
this value to 1 and set AEND and 
ASTART equal so only one angle of 
attack is used. 

Ending value for jet deflection angle 
(DFL) - DFL is the angle between the 
nozzles and body of the aircraft (0 is 
pointing aft (forward flight), and 90° is 
pointing (down)). This value can be 
anywhere between 0° and 90°. Similar 
to AEND when calculating this variable. 

Starting value for jet deflection angle - 
See DEND for definition of DFL. Similar 
to ASTART when calculating this 
variable. 

Step value for jet deflection angle - See 
DEND for definition of DFL. Similar to 
ASTEP when calculating this variable. 

Total number of nozzle deflection angles. 

- See DEND for definition of DFL. Similar 
to LA when calculating this variable. This 
values is typically smaller compared to 
height and velocity independent 
variables. 

Ending value for altitude (HT) - HT is the 
altitude the bottom of the aircraft is above 
the surface of the ground. This value 
must be above HSTART. The default 
value was chosen because at altitudes 
higher than 20 effective diameters of the 
nozzle, the lift increments do not change 
significantly. Similar to AEND when 
calculating this variable. 

Starting value for altitude - See HEND for 
definition of HT. This variable must be 
below HEND. The default value was 
chosen because the inaccuracy of the 
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Name 


HSTEP 


LH 


VEND 


VSTART 


VSTEP 


LV 


Default Type Uails 


Calculated R Ft 


25 


100.0 R kts 


1 .0 R kts 


Calculated R kts 


20 


PpecriDti nn nf Variable 
method becomes too great at heights 
below two effective diameters of the 
nozzles. 

Step value for altitude - See HEND for 
definition of HT. It is desirable to have 
small steps between HSTART and HEND 
so as to distinguish various changes in 
lift increments. Similar to ASTEP when 
calculating this variable. 

Total number of height values. - See 
HEND for definition of HT. Similar to LA 
when calculating this variable. This 
independent variable is one of the two 
most important independent variables. 

Ending value for aircraft velocity (VO) - 
VO is the forward velocity of the aircraft. 
This value need not be greater then 
VSTART. The default value was chosen 
because it was a typical velocity which an 
aircraft might achieve wingbourn flight. 
Similar to AEND when calculating this 
variable. 

Starting value for aircraft velocity - See 
VEND for definition of VO. The value is 
typically low but could be higher than 
VEND. Similar to ASTART when 
calculating this variable. 

Step value for aircraft velocity - See 
VEND for definition of VO. The 
calculated value will cause the ending 
value to be 101 which is different than the 
input for VEND. Similar to ASTEP when 
calculating this variable. 

Total number of velocity values - See 
VEND for definition of VO. Similar to LA 
when calculating this variable. This 
independent variable is one of the two 
most important independent variables. 


Body Variables 


B B 


Body variables are determined if a body 

configuration is used as an input in the 
configuration file (config.PIE). The body 
planform is always input with a wing 
planform and never input with a 
wingbody planform. 

Calculated R Ft Width of Body planform - B_B is defined 

as maximum thickness of the body 
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Name 


DB_B 


L_B 

N_BODY 

R_B 

S_B 
WL B 


Default Type UnilS 


Calculated R Ft 


Calculated R Ft 
Calculated I 

9999. R Ft 

Calculated R Ft 2 
Calculated R — 


Descriptm 1 " 1 fli Variable, 
plantorm. If the body planform contains a 
horizontal tail or canards then this value 
must be defined in the input file. 

Dbar of Body planform - Angular mean 
diameter. This is the diameter of a circle 
which has the same perimeter length as 
the given planform calculated using the 
equation below. The diagram of a 
general planform is shown below. Dbar 
changes with placement of the point of 
measure. The point of measure (PM) for 
the body planform is the point equal 
distance between the front and rear 
nozzles or if there is only one nozzle the 
point of measure is at the front nozzles 
along the X-axis. 



2 1C 


rd<}) 


Length of body planform - L B is 

calculated by the maximum distance from 
the nose of the body planform. 

Number of data points for Body planform 
- PIE counts the number of points used in 
the body planform definition. There is no 
reason to input this variable. 

Corner radius of body sides - R_B is used 
in calculating the body contour factor 
(KR). It is defined as the radius of 

v x iLn of tho hnrlv 


Area of Body - S_B is the total planform 
area of body. Calculated from planform 
input in the *.pie file. 

Width to Length ratio of Body - WL_B is 
used in calculating lift increments for the 
ground vortex and the jet wake. 
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Name Default Typg iioilS 

X_BODY(500) Calculated R Ft 


Description of Variable 

X-coordinates of Body planform - 
Coordinate which defines X-coordinate of 
body planform. Coordinates are to start 
at the nose (0.0, not necessary) and 
progress toward the tail with increasing 
coordinate values. These values are 
obtained from the *.pie file. 


Y_BODY(500) Calculated R Ft 


Z B 


0.0 


R Ft 


Wino Variables 


B_W 

Calculated 

R 

Ft 

DB_W 

Calculated 

R 

Ft 

MAC 

• 

R 

Ft 

N WING 

Calculated 

1 

-— 


S W 


Calculated R Ft 2 


X_WING(500) Calculated R Ft 


Y-coordinates of Body planform - 
Coordinate which defines Y-coordinate of 
body planform. Coordinates are to start 
at the center line of the body and 
increase in value toward the right (as 
seen by the pilot). These values are 
obtained from the *.pie file. 

Height of body base above nozzle - This 
value can be either positive or negative. 

A negative value denoting a body base 
below the nozzle. This variable is used 
in calculating lift increments for the 
ground vortex and the jet wake. 

Wing variables are determined if a wing 

configuration is used as an input in the 
configuration file (*.PIE). The wing 
planform is always input with a body 
planform and never input with a 
wingbody planform. 

Width of Wing (Wing span) - B_W is 
defined as the maximum thickness of the 
wing planform. 

Dbar of Wing - Angular mean diameter of 
wing planform. See DB_B for a more 
detailed description. 

Mean Aerodynamic Chord of wing 

Number of data points for Wing planform 
- PIE counts the number of points used in 
the wing planform definition. There 
should be no reason to input this 
variable. 

Area of Wing - S_W is the total planform 
area of wing. Calculated from planform 
input in the *.pie file. 

X-coordinates of Wing planform - 
Coordinate which defines the 
X-coordinate of wing planform. The 
coordinates are to be placed on the same 
coordinate axis as the body and progress 
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Name Default Iy££ IMS 


Y_WING(500) Calculated R Ft 


Z W 0.0 R Ft 


Pescripti nn nf Variable 
toward the tail with increasing coordinate 
values. These values are obtained from 
the * .pie file. 

Y-coordinates of Wing planform - 
Coordinate which defines Y-coordinates 
of the wing planform. The coordinates for 
the leading edge of the wing are to start 
at the center line of the wing and have a 
positive value toward the right (as seen 
by the pilot). These values are obtained 
from ’.pie file. 

Height of wing above nozzle - This value 
can be either positive or negative. A 
negative value denoting a wing below 
the nozzle (unusual). This variable is 
used in calculating lift increments for 
hover, ground vortex and jet wake. 


yvinghndv Variables 


B_WB 

Calculated 

DB_WB 

Calculated 

L_WB 

Calculated 

N_WB 

Calculated 

S_WB 

Calculated 


Wingbody variables are determined if a 

wingbody configuration is used as an 
input in the configuration file ( .PIE). This 
configuration is always input alone 
without the body or wing planform. It is 
used for single body models such as flat- 
plate models. Whenever a wing and 
body are input then the wing-body 
planform is created from a combination of 
the wing and body planforms. 

R Ft Width of Wing-Body - B_WB is defined as 
the maximum thickness of the wingbody 
planform. 

R Ft Dbar of Wing-Body - Angular mean 

diameter of wing planform. See DB_B for 
a more detailed description. 

R Ft Length of Wing-Body - L_WB is 

calculated by the maximum distance from 
the nose of the wingbody planform. 

I . — Number of data points for Wing-Body 

planform - PIE counts the number of 
points used in the wing-body planform 
definition. There should be no reason to 
input this variable. 

R Ft 2 Area of Wing-Body planform - S_WB is 
the total planform area of wing-body. 
Calculated from planform input in the 
’.pie file or from planform made from 
wing and body planform. 
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Name 
WL WB 


Default Type Units 
Calculated R - — 


pescriptm n nf Variable 

Width to Length ratio of Wing-Body - 
WL_WB is used in calculating lift 
increments for the ground vortex and the 


X_WB(500) Calculated R Ft 


Y_WB(500) Calculated R Ft 


Center Section Variables. 


B CS 


Calculated R Ft 


jet wake. 

X-coordinates of Wing-Body planform - 
Coordinate which defines X-coordinates 
of wing-body planform. The coordinates 
are to be placed on the same coordinate 
axis as the body and progress toward the 
tail with increasing coordinate vajues. 
These values are obtained from *.pie file 
or determined by PIE given the wing and 
body planforms. 

Y-coordinates of Wing-Body planform - 
Coordinate which defines the 
Y-coordinate of the wing-body planform. 
The coordinates are to start at the center 
line of the wing-body and have a positive 
value toward the right (as seen by the 
pilot). These values are obtained from 
the *.pie file or determined by PIE given 
the wing and body planforms. 

Center section variables are determined if a 

wing and body configuration are used as 
an input in the configuration file 
(config.PIE). The center section variables 
are created from a combination of the 
wing and body planforms. 

Width of Center Section - B_CS is 
defined as the maximum thickness of the 
wingbody planform. Calculated when 

wing and body planforms are input. 

• lift inrrpments for th0 


1 I r* 


B JP 


DB CS 


Calculated R Ft 


Calculated R Ft 


jet wake. 

Width of Jet Pattern - Width of pattern 
defined by the placements of the jets 
(each jet is a corner). Used in calculating 
WL_JP. 

Dbar of Center Section - Angular mean 
diameter of center section. See DB_B for 
a more detailed description. 


L CS 


Calculated R Ft 


Length of Center Section - L_CS is 
calculated by the maximum distance from 
the front to the rear of the center section. 
Used in calculating WL_JP. 
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Name 

PP_LID 

S_CS 

S_JP 

S_LID 

SP_JP 

WL_CS 

WL_JP 

Forward 

D_F 

DE F 


Default Im 
•E FI 


Calculated R Ft 2 


Calculated R Ft 2 


Units Descriptio n pf Variable 

Ratio of perimeter enclosed by lift 

improvement devices (LIDS) to total 
perimeter of LIDS. See Kuhn (Ref 1 ) 

Area of Center Section - S_CS is the 
total planform area of the center section. 
Calculated when a wing and body 
planform are input. Used in calculating 
lift increments for the ground vortex and 
jet wake. 

Area enclosed by Jet Pattern - S_JP is 
the total planform area inside the jet 
pattern defined by the nozzles. Used in 
calculating lift increments for the hover 
fountain. 

Area enclosed by LIDS - S_LID is the 
total planform area inside the lift 
improvements devices. Used in 
calculating lift increments for the fountain. 

Actual surface area within area enclosed 
by nozzles - SP_JP can be less than or 
equal than S_JP but never greater. Used 
in calculating lift increments for the 
fountain core and LIDS. 


R Ft 2 


R Ft 2 


Calculated R 
Calculated R 

?le Variables — 


Width to Length ratio of Center Section - 
Not used in any current calculations 

Width to Length ratio of Jet Pattern - 
WL_JP is used in calculating the lift 
increments for the hover fountain. 

Forward nozzle variables are always defined _ If 
there is only one set of nozzles, they will 
be defined at the forward nozzjes.^ ^ ^ 


•B R Ft 


Calculated R Ft 


the *.dat files. 

Diameter of each Front jet - D_F is the 
diameter of an individual front circular or 
oval nozzle. If there are two nozzles then 
input only the diameter of one of them. If 
the nozzle is oval then input the diameter 
which would give a circle the same area 
as the oval. If the nozzle is rectangular 
then only input the length and width. 

Effective Diameter of Front jets - DE_F is 
the effective diameter of the front jets 
combined. This is the diameter of a 
single circle which would give the same 
area as the total area of the front nozzles. 
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Name Default Iyp£ iinilS 

L_F *B R Ft 

NUM_F Calculated I — - 

PR_F *C R — - 

Q_F Calculated R Ib/Ft 2 

S_F Calculated R Ft 2 

SF_FB Calculated R Ft 2 

SF_FW Calculated R Ft 2 

SF_FWB Calculated R Ft 2 

SPLY_F 0.0 R Ft 

T F *A R lb 


Descriptio n of Variable 
Length of Front jet - L_F is the length in 
the Y-direction of the front jet(s). Input 
this and W_F only if the nozzles are 
rectangular, not D_F. 

NUMber of Front jets - NUM_F is the total 
number of front jets present. This number 
cannot be greater than two. This is 
calculated by examining the location of 
the jets. 

Jet Pressure Ratio for front jets - PR_F 
used to calculate the lift increments for 
the hover suckdown and the jet wake. 
Also used to calculated the dynamic 
pressure of the front nozzles. 

Dynamic pressure for the front jets - Q_F 
is used to calculate the lift increments for 
the jet wake. 

Area of Front jets - Total area of front jets 

Area ahead of Front jets using body 
planform - Total area of body planform 
ahead of the front jets. Used to calculate 
the lift increments for the jet wake. 

Area ahead of Front jets using wing 
planform - Total area of wing planform 
ahead of the front jets. Used to calculate 
the lift increments for the jet wake. 

Area ahead of Front jets using the 
wingbody planform - Total area of wing- 
body planform ahead of the front jets. 
Used to calculate the lift increments for 
the jet wake. 

SPLaY angle of Front jet - SPLY_F is the 
angle from the vertical which the nozzles 
are canted. A positive splay angle is one 
which is away from the center of the 
aircraft. 



Thrust of Front jets - Total thrust of all 
front jets. (Make sure this value is not 
9999.0) 
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Name 
TT_F 
W F 


WL_F 

XCG_F 


XNOZ_F 
XTE F 


Y_F 
YB F 


YNOZ_F 


YWB F 


Default Type UoiiS 
•A Ft — - 

•B R Ft 


Calculated R — 
Calculated R Ft 


R Ft 
R Ft 


Calculated R Ft 
Calculated R Ft 


R Ft 


Calculated R Ft 


Dpsrrintm n of Variable 

Front Thrust /total Thrust 

Width oi Front jet - W_F is the width in the 

X-direction ot the front jet(s). Input this 

and L_F only if the nozzles are 

rectangular, not D_F. 

Width to Length ratio of Front jets 

Distance Front jet is ahead of CG - 
XCG F is the distance between the 
center of gravity (CG) and the front 
nozzles. A positive value denotes that 
the nozzles are ahead of the CG. 
X-coordinates of Front NOZzle - Position 
of the front nozzles along the X-axis. 

X-coordinate of trailing edge for front 
nozzle - Position along the X-axis of the 
wing trailing edge (TE) directly behind or 
in front of the front nozzle(s). Use wing 
root TE if Nozzle is within the body 
planform. (This value can be different 
from the XTE_R). Use in calculating the 
lift increment due to the jet flap condition 
for the jet wake. (This is not the distance 
between the front nozzle and the trailing 
edge, but the X-coordinate of the trailing 
edge behind the front nozzle) 

Distance between Front jets - Lateral 
distance (Y-direction) between the front 
nozzles. 

Lateral distance from Body to Front jets - 
YB F is the lateral distance (Y-direction) 
from the side of the body to the nozzles. 
An external nozzle will have a positive 
YB_F. 

Y-coordinates of Front NOZzle - Position 
of the front nozzles along the Y-axis. 

Only one value for the front nozzles need 
to be entered due to the symmetry of the 
configurations. If YNOZ.F is 0.0 then 
only one nozzle is assumed. If YNUZ_r 
is not equal to zero then, due to 
symmetry, two nozzles are assumed. 

Lateral distance from Wingbody to Front 
jets - YWB_F is the lateral distance 
(Y-direction) from the side of the 
wing-body to the nozzles. An external 
nozzle will have a positive YWB_F. 
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Namfl 

Rear Nozzle 
D_R 

DE_R 

L_R 

NUM_R 

PR_R 

Q_R 

S_R 

SF_RB 

SF_RW 

SF RWB 


Default Type 
Variables 


Units Description of Variable 

Rear nozzle variables are defined only if there 
are front and rear nozzles. The variables 
for the nozzles are input using the *.dat 
files. 


•B 


R Ft 


Calculated R Ft 


•B 


R Ft 


Calculated I 


R 


Calculated R Ib/Ft 2 

Calculated R Ft 2 
Calculated R Ft 2 

Calculated R Ft 2 

Calculated R Ft 2 


Diameter of each Rear jet - D_R is the 
diameter of an individual rear circular or 
oval nozzle. If there are two nozzles then 
input only the diameter of one of them. If 
the nozzle is oval then input the diameter 
which would give a circle the same area 
as the oval. If the nozzle is rectangular 
then only input the length and width. 

Effective Diameter of Rear jets - DE_R is 
the effective diameter of the rear jets 
combined. This is the diameter of a 
single circle which would give the same 
area as the total area of the rear nozzles. 

Length of Rear jet - L_R is the length in 
the Y-direction of the rear jet(s). Input this 
and W_R only if the nozzles are 
rectangular, not D_R. 

NUMber of Rear jets - NUM_R is the total 
number of rear jets present. This number 
cannot be greater than two. This is 
calculated by examining the location of 
the jets. 

Jet Pressure Ratio for rear jets - PR_R 
used to calculate the lift increments for 
the hover suckdown and the jet wake. 
Also used to calculated the dynamic 
pressure of the rear nozzles. 

Dynamic pressure for the rear jets - Q_R 
used to calculate the lift increments for 
the jet wake. 

Area of Rear jets - Total area of the rear 
jets. 

Area ahead of Rear jets using body 
planform - Total area of body planform 
ahead of the rear jets. Used to calculate 
the lift increments for the jet wake. 

Area ahead of Rear jets using wing 
planform - Total area of wing planform 
ahead of the rear jets. Used to calculate 
the lift increments for the jet wake. 

Area ahead of Rear jets using the 
wingbody planform - Total area of wing- 
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Name Default ~i~yp £ 

SPLY_R 0.0 R Ft 

t_r *a R lb 

TT_R ’A R — * 

W_R *B Ft Ft 

WL_R Calculated R — - 

XCG R Calculated R Ft 


XNOZ_R • Ft Ft 

XTE R • Ft Ft 


Y_R 

Calculated 

R Ft 

YB R 

Calculated 

R Ft 


YNOZ_R • Ft Ft 


Dpscrioti nn nf Variable. 

body planform ahead of the rear jets. 

Used to calculate the lift increments for 
the jet wake. 

SPLaY angle of Rear jet - SPLY_R is the 
angle from the vertical which the nozzles 
are canted. A positive splay angle is one 
which is away from the center of the 
aircraft. See diagram for SPLY_F. 

Thrust of Rear jets - Total thrust of all rear 
jets. (Make sure this value is not 9999.0) 

Rear Thrust /total Thrust 
Width of Rear jet - W_R is the width in the 
X-direction of the rear jet(s). Input this 
and L_R only if the nozzles are 
rectangular, not D_R. 

Width to Length ratio of Rear jets 

Distance Rear jet is ahead of CG - 
XCG_R is the distance between the 
center of gravity (CG) and the rear 
nozzles. A negative value denotes that 
the nozzles are behind the CG. 
X-coordinates of Rear NOZzle - Position 
of the rear nozzles along the X-axis. 

X-coordinate of trailing edge for rear 
nozzle - Position along the X-axis of the 
wing trailing edge (TE) directly behind or 
in front of the rear nozzle(s). Use wing 
root TE if Nozzle is within the body 
planform. (This value can be different 
from the XTE_F). Use in calculating the 
lift increment due to the jet flap condition 
for the jet wake. (This is not the distance 
between the rear nozzle and the trailing 
edge, but the X-coordinate of the trailing 
edge behind or in front of the rear nozzle) 

Distance between Rear jets - Lateral 
distance (Y-direction) between the rear 
nozzles. 

Lateral distance from Body to Rear jets - 
YB_R is the lateral distance (Y-direction) 
from the side of the body to the nozzles. 
An external nozzle will have a positive 
YB_R. 

Y-coordinates of Rear NOZzle - Position 
of the rear nozzles along the Y-axis. Only 
one value for the rear nozzles need to be 
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Name Default Typg Units 


YWB_R 

Calculated R Ft 

Front/Rear Nn77le Variables 

DE_FR 

Calculated R Ft 

NUM 

Calculated 1 Ft 

PER_FR 

Calculated R Ft 

PR_FR 

•C R — 

Q_FR 

Calculated R Ib/Ft 2 

S_FR 

Calculated R Ft 2 

T_FR 

•A R lb 

X FR 

Calculated R Ft 


Description of Variable 

entered due to the symmetry of the 
configurations. If YNOZ_R is 0.0 then 
only one nozzle is assumed. If YNOZ_R 
is not equal to zero then, due to 
symmetry, two nozzles are assumed. 

Lateral distance from Wingbody to Rear 
jets - YWB_R is the lateral distance 
(Y-direction) from the side of the 
wing-body to the nozzles. An external 
nozzle will have a positive YWB_R. 

Front/rear nozzle variables are always 
calculated even if there are only front 
nozzles. The user should only need to 
input certain front/rear nozzle variables 

Effective Diameter of Front and Rear jets 
combined - DE_F R is the effective 
diameter of the all the jets combined. 

This is the diameter of a single circle 
which would give the same area as the 
total area of the front and nozzles 
combined. 

NUMber of Front/Rear jets - NUM is the 
total number of all jets present. This 
number cannot be greater than four. This 
is calculated summing NUM_F and 
NUM_R. 

Total perimeter of jets - PER_FR is the 
total perimeter of all the jets combined. 
Calculation of this takes into account 
wether the jets are circular, oval, or 
rectangular. 

Jet Pressure Ratio for all jets - PR_FR 
used to calculate the lift increments for 
the hover suckdown and the jet wake. 
Also used to calculated the average 
dynamic pressure of all the nozzles. 

Dynamic pressure for the front/rear jets - 
Q_FR is used to calculate the lift 
increments for the jet wake. 

Area of Front/Rear jets - Total area of 
front jets 

Thrust of Front/Rear jets - Total thrust of 
all jets. (Make sure this value is not 
9999 . 0 ) 

Distance between Front and Rear jets - 
X_FR is the longitudinal distance 
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Name 


Default Type Units Dpsnription of VgriafrlS 

between the front and rear nozzle 
locations. 



Typically these variables are only input when 

moment increments are being calculated. 
Since the PIE code does not contain 
moment increments at this time these 
variables need only be input when the 
user is interested in the lift increments 
caused by the RCS. 


D_RCS 

MD_RCS 

PR_RCS 

PT_RCS 

Q_RCS 

RCSFLG 


•D 

•D 

•D 

•D 

•D 

Calculated 


R Ft Diameter for Roll RCS nozzle 
R lb m /s Mass flow rate for one RCS nozzle 
r .... Roll RCS Pressure Ratio 
R Ib/Ft 2 Total pressure for one roll RCS jet 
R Ib/Ft 2 Dynamic pressure for roll RCS jets 

r .... Flag which identifies if the RCS lift 

increment calculation exceeded the area 
ratio. This is not a fatal error. 


(' S A'ef - > 7000 ^ 

TRUE - Exceeded 
FALSE - Not Exceeded 


T_RCS *D 

TP_RCS *D 

X RCS *D 



r lb Thrust of one roll RCS nozzle 
r or Temperature of flow in roll RCS nozzle 

R Ft Distance of roll RCS nozzle ahead of 

wing trailing edge 

R Ft Distance of roll RCS nozzle from wing tip 

All of these variables, except for SCALE3, are 
calculated by PIE. They should typically 
not be changed unless the user wants to 
compare the PIE results with other results 
which have different values than 
calculated by PIE. Setting these variable 
to user defined values will not speed up 
the calculations because the SDAREA is 


still executed. 

Refer to the diagram for the fountain 
variables. The fountain arms are 
numbered as shown in the figure. There 
can be a maximum of four fountain arms 
(configurations with four or more jets.) 

The number two fountain arm is a 
reflection of the number one fountain arm 
so it is not included in the variable listing. 
The figure shown has only three fountain 
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Name 


E_1 

E_3 

E_4 

S_FA1 

S_FA3 

S_FA4 

SCALE 


SCALE3 


SP_FA1 

SP_FA3 
SP_FA4 
THA 1 


THA_3 
THA 4 


Default 


Type Units Description nf Variable 

arm so only fountain arms number one 
and four need to be defined. 



Calculated R Ft 

Calculated R Ft 
Calculated R Ft 
Calculated R Ft 2 

Calculated R Ft 2 
Calculated R Ft 2 
Calculated R - — 


1.0 


R 


Calculated R Ft 2 

Calculated R Ft 2 
Calculated R Ft 2 
Calculated R deg 


Calculated R deg 
Calculated R deg 


Half distance between adjacent jets for 
fountain arm (1). (‘e’ in above figure) 

See E_1 - use fountain arm (3). 

See E_1 - use fountain arm (4). 

Actual surface area between the jets 
which is affected by fountain arm (1). (S’ 
in above figure) 

See S_FA1 - use fountain arm (3). 

See S_FA1 - use fountain arm (4). 

Actual scale factor which adjust the area 
of fountain arm (3) to account for the fact 
that the curvature of the aircraft's nose 
tends not to hold the fountain arm 
causing the area that the fountain arm 
affects to be scaled down. 

Fountain arm (3) scalar (Percentage 
measured from the front jets to the nose 
of the aircraft.) Tries to approximate 
SCALE but does not do a great job 
(better than nothing.) 

Potential surface area between the jets 
which is affected by fountain arm (1). (S” 
in above figure) 

See SP_FA1 - use fountain arm (3). 

See SP_FA1 - use fountain arm (4). 

Half the angle between two adjacent jets 
and the fountain core which is bisected 

by fountain arm (1) ('6' in above figure) 
See THA_1 - use fountain arm (3) 

See THA 1 - use fountain arm (4) 
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Name Peteuil Iy£>£ ii* 

y i Calculated R Ft 

Y 3 Calculated R Ft 

Y 4 Calculated R Ft 

Yp i Calculated R Ft 

Yp 3 Calculated R Ft 

Yp 4 Calculated R Ft 

Miscellane ous Variables 

CONFIG ??????.•• T -- 


DR -Z 

F NAME test. pie 


HDEOUT .TRUE. L 

KB .666667 R — 

KLF 1.0 R 

KR Calculated R — - 

NDIV 500 I — * 

PRTFLG .TRUE. L — - 


Descript ion of Variable 
Spanwise extent of planform on fountain 
arm (1) center line, (‘y’ in above f'9 ure ) 
See Y_1 - use fountain arm (3) 

See Y_1 - use fountain arm 
Maximum spanwise extent of planform 
along fountain arm (1). (‘Y’ in above 
figure) 

See YP_1 - use fountain arm (3) 

See YP_1 - use fountain arm (4) 


Short title of current configuration (18 
characters or less) 

Density Ratio (Jet / Atm) 

Name of file which contains body & wing, 
or just wingbody planform coordinates. It 
should always end with ‘.pie’ to 
distinguish it from the data file (Maximum 
length - 50 characters) F_NAME can 
contain a directory path to the ‘.pie’ file. 

Signals when to output tables based on 
height or height/De 

TRUE - Print table based on Height/Dt, 
FALSE - Print table based on height 

Boundary layer factor. Used when 
calculating forward extent of wall jet. 

Value is based on whether the ground 
plane is moving ?? 

Adjustment factor for flap extension when 
calculating the lift increment due to jet 
induced effects. 

1 .0 - Flaps extended 
.25 - No flap extension 

Body contour factor 
Calculated from R_B. 

Number of divisions to be used when 
calculating suckdown areas (SDAREA) 
and Dbars (DIABAR). This value has not 
been optimized. Value could be less and 
still have good accuracy. 

Signals when to output to the screen. 
Prints all input variables according to 
logical section (similar to the sections in 
this manual) and then allows the user to 
choose which increments to create a 
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Name Default IyE£» 


VEOUT .FALSE. L — 


WIWE 

•Z 

R 

— 

X_CA 

Calculated 

R 

Ft 

X_CG 

• 

R 

Ft 

XCA_CG 

Calculated 

R 

Ft 

XCG_C2 

Calculated 

R 

Ft 

XCG_C4 

•Z 

R 

Ft 

XCGJ 

•Z 

R 

Ft 

ZCG 1 

•z 

R 

Ft 


□ascription of V ariably 
table from. PIE uses a menu driven 
structure for this purpose. Output file is 
written over the previous output each 
time a new table is created. (To create 
multiple tables, create table and then 
rename it before creating next table.) 
Signals when to output tables based on 
VE 

TRUE - Print table based on VE 
FALSE - Print table based on Velocity 

Flow Weight of Engine Inlet / Flow Weight 
of Engine Exits 

X-coordinate of Center of Area measured 
from the nose of the aircraft. 

X-coordinate of Center of Gravity 
measured from the nose of the aircraft. 

Distance of center of area ahead of CG (if 
value is negative, center of area is aft of 
the CG.) 

Distance from CG to half chord (MAC/2) 
Not used in lift increment calculations. 

Distance from CG to quarter chord 

(MAC/4) . 

Not used in lift increment calculations. 

Engine Inlet longitudinal distance ahead 

of CG 

Engine Inlet vertical distance above CG 


Minimum Configura tion Variables 

There are a certain number of variables which must be defined before PIE 
makes calculations These variables are called minimum configuration 
variables. These variables are divided into seven groups; Nec ®® s |7 ^° u ?’ 1Ds 
Thrust Group, Nozzle Definition Group, Pressure Ratio Group, RCS Group, LIDs 

Grouo and Potential Group. The variables in each group, except the 

Necessary Group, are related which is explained in the following sections. The 
headingsfor each section are preceded by a letter which corresponds to the 
letter found after the in the Variable Definition section. 

These variables are general variables. The engineer should read thr0LJ 9^ 
the Variable Definition section to become familiar with the many different subtle 
configuration changes which might apply to an aircraft design ^section will 
list variable names and maybe some pertinent description. The complete 
definition of the variable can be found in the Variable Definition section. 
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Here are some points which the user should be aware of 

1) All variables must be entered using the same coordinate system . 

2 H there are no rear nozzles then the user need not enter any vanables 
which are specifically for the rear nozzles. 


Necessary Group 

,he!n%?«e e Th^ 
belong in one of the lettered groups. 


X_CG 

XNOZ_F 

YNOZ_F 

XNOZ_R Required if rear nozzles are present. 

YNOzIr Required if rear nozzles are present. 

XTE F 

XT E “r Required if rear nozzles are present & value is different from 
XTE_F. 

MAC 
F NAME 


Thrust Group 

The Thrust group contains all the variables pertaining to J* 1 ® n nl enter 

incorrect results and therefore must be corrected. 


T_F, T_R 
TT_F, T_FR 
TT_R, T_FR 
TT_F, T_F 
TT_R, T_R 
T_FR, T_R 
T_FR, T_F 
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Nozzle Definition Group 

The Nozzle Definition Group contains the variables which define .the size 
t i ^ TL QrCj oro thrpp different tvpss of nozzles whicn » it C3n 

handTe P ' “cirouTar a?e front and rear nozzles, each 

sit must defined as 9 a type of nozzle using the following definition* 

Circular nozzles are defined by entering the diameter of an individual nozzle 
in front or rear, if necessary. (D_F, D_R) 

Rectangular nozzles are defined by entering the width and length of an 

individual nozzle in front or rear, if necessary. (W_F, L_F, - - - 

Oval nozzles are defined by entering the width and length of an [ndiv'dua 1 
nozzle along with the diameter of a circular individual nozzle which has the 
same ama asThe individual oval nozzle. Use rear nozzles only ,f necessary. 
(W_F, L_F, D_F, W_R, L_R, D_R) 

Pressure Ratio Group 

The Pressure Ratio Group contains all variables which define the pressure 
ratios oHhe noSles 3 ' The preferable method for 

ratios is to enter the pressure ratios for each nozzle (PR_F, PR_R). it tnese are 
not known then the pressure ratio for the whole system must be entered 

(PR_FR). 


RCS Group 

The reaction control system group contains all variables which define the 
nozzles of the RCS The following is a list of variables which are needed by P 
to ampSe RCS lift increments. If one of the variables cannot be determined 
and there is an ‘or’ on the same line then the next variable can be entered in ts 
place, e.g. If the diameter of the RCS nozzle (D RCS) cannot be founc Hh®" 
the three values following it must all be used (MD_RCS, TP_RCb, r i j )■ 

If either X RCS or Y_RCS are not defined than the RCS routine will not be 
executed. 


X_RCS 

Y_RCS 

T_RCS 

Q_RCS or PT_RCS or PR_RCS 

D RCS or MD_RCS 

TP_RCS 
PT RCS 
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LIDs Group 


The LIDs group contains all the 
they are positioned on the airframe, 
configuration contains LIDS 


variables which define the LIDs and how 
These variables are to be included if the 


S_LID 

PP_LID 

SP JP Required if different than S_JP. 


Potential Group 

StemSrlad these 'variables, they can be lett out of the input tiles 
until the moment increment routines are included. 


DR 
WIWE 
XCG_C4 
XCGJ 
ZCG I 


Output 


The storage of the results of PIE are in arrays, Thjs is 
types of lookup table output. 

r.irrontiv PIE Droduces one three-dimensional lookup table, given an angle 
, ^ r ;rfSVcSYNT This table contains multiple tables based on de lechon 

can be generated using similar subroutines. 

The other output options are created for graphing puiposes. These outputs 

i=4Ss g=f 

workstations, and a Macintosh graphing application called KaleidaGrap . 
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rnnfiauration 

The example configuration is a McDonnell D ° u 9' as J^eh^This 3 ™^ 

beeluseTt fsTheTost cUmon je. «ft WSTOL aircraft. 
One addition this example has over common configurations are LIDs. 

Input 

input tiles can be created in any text e . dl ' 0 I n a ; a j^^ , e 0 x ! h ) He U s Ser ***** SUre 
no special control characters are included in any ol the text tiles. 

Tho data file “confid dat” contains all user defined variables. This file 

any order. The variables in the example file, Table #1 . have been nsie« 
according to the groups listed above for ^vemence ^ the 

<0 allow ease 0 , identiftcation of 

2SS SX2SX separated by 

a comma and one or more of the following; space, tab, or return. 


Table #1. Sample Data File - YAV8B.dat 


$PIENAM 

X_CG = 25.8, 
XNOZ_F = 25.3, 
XNOZ_R = 30.38, 
XTE_F = 29.348, 
T_F = 9994., 

D_F = 1.7692, 
PR_FR = 2.25, 
PP_LID = 1.0, 
SPLY F = -10., 


YNOZ_F = 3.39, 
YNOZ_R = 2.8, 
MAC = 8.31, 
T_R = 11423., 
D_R = 2.17, 

S_LID = 18.27, 
SPLY_R = -10., 


CONFIG = 'YAV-8B Harrier', 
B B = 6.36, KR = .6, 


XCG C2 = -3.6, 


Z_W = 4.2, 

F_NAME = 'yav8b.pie\ 
HDEOUT= .FALSE. 

HSTART = 1 , HEND = 25, 
VSTART = 3.0, VSTEP = 3.5, 


WL F = .74, 


LH = 25., 
LV = 10., 



PIE -28 


ASTART = 6.0, 
DSTART = 81 


ASTEP = 2.0, 
DSTEP = 2.0, 


AEND = 12.0, 
DEND = 93., 


$END 

The planform coordinates file, “config.pie", contains Cartesian coordinates of 
planforms used for the configuration. This file contains hstmgs ^ coord nates 
for particular planforms. Only half the planform must to be entered due to 
symmetry of the configurations. 

The format for the coordinates starts with a descriptor which 
can be one of the following; WINGPLAN, BODYPLAN, or WINGBODY. 

Following these descriptors the coordinates for the planform are entered o 
nose to tail of the configuration. The first and last coordinates must be 
positioned on the center line of the aircraft (Y-coordinates equal to zero.) Each^ 
Dlanform listinq is terminated with the planform termination flags, 99 . , 

theX and Y-coo rdi n at e positions. After the planform termination flags are 
e^erecTthe nextplanform can be entered using the same formats. Enter no 
more than 500 points for each planform. These formats can be seen in 

Table #2. 

The preferred method for entering planforms is to enter the WINGPLAN and 
BODYPLAN planforms together. If these planforms cannot be det 
enter only one planform for the WINGBODY. Do not enter all Ihree planforms at 

once. 


Table #2. Example Planform Coordinates File - YAV8B.pie 


WINGPLAN 

21.3.0. 0 
31.5, 14.0 

32.9, 14.6 
35.44, 14.6 

34.0, 8.4 

34.0, 0.0 

9999., 9999. 
BODYPLAN 
0.0, 0.0 
7.97, 0.21 

11.0. 1.4 

15.9, 1.4 

16.7, 3.23 

25.2, 2.91 
29.4, 3.18 

30.8, 2.3 

36.3, 2.0 

41.4, 1.07 

44.5, 5.0 
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45.7, 6.7 
47.4, 6.7 
46.2, 0.54 
49.55, 0.0 
9999., 9999 


Execution 

The set up Ue 

^ W** on me — . the code 
will execute for a few moments and the variable lists will be displayed. 

Table #3 is a reproduction of the variable lists. 


Table #3. Sample Output During Execution 


YAV-8B Harrier 
Body Wing 


B_B=6.36 

L_B=49.55 

S_B=1 97.48 

DB_B=12.39 

WL_B=0.13 

Z_B=0.00 

KR=0.60 


B_W=29.20 

S_W=224.30 
DB_W=1 5.76 
MAC=8.31 
Z W=4.20 


Wing-Body Jet Pattern Center Sec. 


B_WB=29.20 
L_WB=49.55 
S_WB=357.53 
DB_WB=1 9.43 
WL WB=0.59 


B_JP=6.78 B_CS=6.36 

S_JP=31 .45 L_CS=1 2.75 
S_LID=1 8.27 S_CS=64.24 
SP_JP=31 .45 DB_CS=8.72 
WL_JP=1 .33 WL_CS=0.50 
PP LID=1 .00 



Table 3. 


(Continued) 


Front Nozzles Rear Nozzles Both Nozzles 


NUM_F=2 

D_F=1 .77 

DE_F=2.50 

S_F=4.92 

SPLY_F=-10.0 

W_F=1 .77 

L_F=1 .77 

WL_F=1 .00 

Y_F=6.78 

YB_F=0.47 

YWB_F=-2.1 0 

PR_F=2.25 

T_F=9994.0 

TT_F=0.47 

Q_F=1761 .6 

XTE_F=29.35 

XCG_F=0.50 

SF_FB=76.75 

SF_FWB=81 .48 

XNOZ_F=25.30 

YNOZ F=3.39 


NUM_R=2 

D_R=2.17 

DE_R=3.07 

S_R=7.40 

SPLY_R=-1 0.0 

W_R=2.17 

L_R=2.17 

WL_R=1 .00 

Y_R=5.60 

YB_R=0.24 

YWB_R=-9-66 

PR_R=2.25 

T_R=1 1423.0 

TT_R=0.53 

Q_R=1761 .6 

XTE R=29.35 


NUM=4 

DE_FR=3.96 
S_FR=12.31 
PER_FR=24.75 
Q_FR=1 761 .6 
X FR=5.08 


XCG_R=-4.58 
SF_RB=1 07.37 
SF_RWB=1 72.68 
XNOZ_R=30.38 
YNOZ_R=2.80 


PR_FR=2.25 
DR=1 .00 
W!WE=0.00 
XCG_l=0.00 
ZCG 1=0.00 


Fount. Arms RCS Nozzles Misc. 


E_1=2.56 
E_3=3.39 
E_4=2.80 
THA_1 =39.37 
THA_3=57.25 
THA_4=44.00 
S_FA1=0.27 
S_FA3=76.97 
S_FA4=68.71 
SP_FA1=1 .29 
SP_FA3=171 .53 
SP FA4=1 07.35 


D RCS=0.00 XCG_C2=-3.60 

PR_RCS=0.00 XCG_C4=0.00 
T_RCS=0.00 XCA_CG=-4.83 

TP_RCS=0.00 KB=0.67 
PT_RCS=0.00 KLF=1 .00 
MD_RCS=0.00 X_CG=25.80 
Q_RCS=0.0 X_CA= 30.63 
X_RCS=9999.00 
Y RCS=9999.00 


Y_1 =0.00 

Y_3=25.30 

Y_4=19.17 

YP_1=0.25 

YP_3=25.30 

YP_4=19.17 

SCALE3=1 .00 



Table 3. 


(Continued) 
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Body 

X 

Y 

Wing 

X 

Y 

Wingbody 
X Y 

Center Sec 
X Y 

0.00 

7.97 

11.00 

15.90 

16.70 

25.20 

0.00 

0.21 

1.40 

1.40 

3.23 

2.91 

21.30 

31.50 

32.90 

35.44 

34.00 

34.05 

0.00 

14.00 

14.60 

14.60 

8.40 

0.00 

0.00 

7.97 

11.00 

15.90 

16.70 

23.47 

0.00 

0.21 

1.40 

1.40 

3.23 

2.98 

21.30 

23.47 

25.20 

29.40 

30.80 

34.04 

0.00 

2.98 

2.91 

3.18 

2.30 

2.12 

29.40 

3.18 

31.50 

14.00 

34.05 

0.00 



30.80 

2.30 

32.90 

14.60 





36.30 

2.00 

35.44 

14.60 





41.40 

1.07 

34.00 

8.40 





44.50 

5.00 

34.04 

2.12 





45.70 

6.70 

36.30 

2.00 





47.40 

6.70 

41.40 

1.07 





46.20 

0.54 

44.50 

5.00 





49.55 

0.00 

45.70 

6.70 







47.40 

6.70 







46.20 

0.54 







49.55 

0.00 






Error Codes 


DBAR error flag (DBERR) = 0 
SDAREA error flag (SDAERR) = 0 
Thrust input error (T_ERR) = 0 


After the variables are output to the screen, a menu system will appear 
which allows the user to choose which type of output required The Rowing 
menus and choices are the exact output of a typical PIE run. The first choice is 
for a table with all hover results, the second choice is for a ta hle with total I n 
increments, from all routines, based on height for a velocity of 34.5 knots nozzle 
deflection angle of 81 degrees, and angle of attack of 6 degrees. The third 
choice is a table of the totals which can be used by ACSYNT for an angle of 
attack of 6 degrees. (The output for all these choices are shown following this 

paragraph.) 


OUTPUT DATA TO TABLE FORMAT 


0 - Quit table generation section 

1 - Output table with all hover results (dL/dT vs Height) 

2 - Tables with results from STOLSF (any) 

3 - Tables with results from STOLGV (any) 

4 - Table with results from RCSIND 

5 - Table with results from STOLWK (any) 

6 - Table with totals from all routines 

7 - Table for JETIND 
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Choose an option 
1 

OUTPUT DATA TO TABLE FORMAT 

0 - Quit table generation section ...... 

1 - Output table with all hover results (dl_/dT vs Height) 

2 - Tables with results trom STOLSF (any) 

3 - Tables with results from STOLGV (any) 

4 - Table with results from RCSIND 

5 - Table with results from STOLWK (any) 

6 - Table with totals from all routines 

7 - Table for JETIND 

Choose an option 
6 


Table generation for Totals 

1 - Output table based on height 

2 - Output table based on aircraft velocity 

3 - Output table based on jet deflection angle 

4 - Output table based on Aircraft Angle of Attack 


Choose an option 

1 

V Number Velocity 

1 ~> 3.0 

2 --> 6.5 

3 ~> 10.0 

4 --> 13.5 

5 ~> 17.0 

6 --> 20.5 

7 -> 24.0 

8 --> 27.5 

9 ~> 31.0 

10 --> 34.5 

Enter your choice for Aircraft Velocity (V Number) 

4 

D Number Def Angle 
1 ~> 81.0 

2 --> 83.0 

3 ~> 85.0 

4 ~> 87.0 

5 --> 89.0 
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6 ~> 91.0 

7 --> 93.0 


Enter your choice for Deflection Angle (D Number) 

1 

A Number Angle of Attack 
1 ~> 6.0 
2 ~> 8.0 
3 --> 10.0 
4 ~> 12.0 

Enter your choice for Aircraft Angle of Attack (A Number) 
1 

OUTPUT DATA TO TABLE FORMAT 

0 - Quit table generation section . 

1 - Output table with all hover results (dL/dT vs Height) 

2 - Tables with results from STOLSF (any) 

3 - Tables with results from STOLGV (any) 

4 - Table with results from RCSIND 

5 - Table with results from STOLWK (any) 

6 - Table with totals from all routines 
7 -Table for JETIND 

Choose an option 

7 

A Number Angle of Attack 
1 -> 6.0 
2 --> 8.0 
3 --> 10.0 
4 --> 12.0 

Enter your choice for Aircraft Velocity (V Number) 

1 

OUTPUT DATA TO TABLE FORMAT 

0 - Quit table generation section 

1 - Output table with all hover results (dL/dT vs Height) 

2 - Tables with results from STOLSF (any) 

3 - Tables with results from STOLGV (any) 

4 - Table with results from RCSIND 

5 - Table with results from STOLWK (any) 

6 - Table with totals from all routines 

7 - Table for JETIND 
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Choose an option 
0 


Output 

The actual output from PIE is in the form ol tables from which graphs can be 
created or look-ups can be performed. 


The following tables were created from the 
previous section. The tables are actual output 
"zero” data sets to allow the tables to fit on the 


menu choices shown in the 
from PIE except for elimination of 
pages. 


TflhlPs 4 and 5 are basic tables used to create graphs using a Macintosh 

application called KaleidaGraph or a graphing a PPjjf a ''° n d , ° r next The 
r-ranhirc Iris These two tables follow the format which is described next, i ne 

Sow contams a number which the Ins application uses to *««nfl«ah 
between different types of input (the number is not used by Kale daGraph.) The 

ssSSsSss 

points. After the above headers, all the data sets are listed with the X axis value 
followed by each data set value on the same row. 
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Table 4. Actual Output from PIE tor Hover Lift Increments 


1 

YAV-8B Harrier 
Height 
dL/dT 
6 

OG 

SUCKDOWN 

FOUNTAIN 

LIDS 

TOTAL 

Zero 

25 

1.0000 - 0.01142 

2.0000 - 0.01142 

3.0000 - 0.01142 

4.0000 - 0.01142 

5.0000 - 0.01142 

6.0000 - 0.01142 

7.0000 - 0.01142 

8.0000 - 0.01142 

9.0000 - 0.01142 

10.0000 - 0.01142 

11.0000 - 0.01142 

12.0000 - 0.01142 

13.0000 - 0.01142 

14.0000 - 0.01142 

15.0000 - 0.01142 

16.0000 - 0.01142 

17.0000 - 0.01142 

18.0000 - 0.01142 

19.0000 - 0.01142 

20.0000 - 0.01142 

21.0000 - 0.01142 

22.0000 - 0.01142 

23.0000 - 0.01142 

24.0000 - 0.01142 

25.0000 - 0.01142 


, Hover Ground Effect 


-0.47852 0.42695 

-0.21777 0.21192 

-0.13432 0.14068 

-0.09401 0.10519 

-0.07056 0.08395 

-0.05541 0.06983 

-0.04491 0.05975 

-0.03729 0.05075 

-0.03154 0.04132 

-0.02709 0.03188 

-0.02356 0.02245 

-0.02071 0.01302 

-0.01836 0.00359 

-0.01641 0.00225 

-0.01477 0.00210 

-0.01337 0.00197 

-0.01217 0.00185 

-0.01113 0.00175 

-0.01023 0.00166 

-0.00943 0.00157 

-0.00873 0.00150 

-0.00811 0.00143 

-0.00755 0.00137 

-0.00705 0.00131 

-0.00660 0.00126 


0.06524 
0.06476 
0.06449 
0.06429 
0.05324 
0.04428 
0.03790 
0.03218 
0.02620 
0.02022 
0.01424 
0.00826 
0.00228 
0.00143 
0.00133 
0.00125 
0.00118 
0.001 11 
0.00105 
0.00100 
0.00095 
0.00091 
0.00087 
0.00083 
0.00080 


0.00225 

0.04750 

0.05943 

0.06406 

0.05522 

0.04729 

0.04132 

0.03423 

0.02456 

0.01360 

0.00171 

-0.01085 

-0.02392 

-0.02415 

-0.02276 

-0.02157 

-0.02056 

-0.01969 

-0.01893 

-0.01828 

-0.01770 

-0.01718 

-0.01673 

-0.01632 

-0.01596 


0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 
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Table 5. Actual Output from PIE for Total Lift Increments 


1 

YAV-8B Harrier 
Height 
dLAJT 
6 

OGE 

SF 

g-vortex 

JET WAKE 


RCS 

TOTAL 

25 

1.0000 

2.0000 

3.0000 

4.0000 

5.0000 

6.0000 

7.0000 

8.0000 

9.0000 

10.0000 

11.0000 

12.0000 

13.0000 

14.0000 

15.0000 

16.0000 

17.0000 

18.0000 

19.0000 

20.0000 

21.0000 

22.0000 

23.0000 

24.0000 

25.0000 


-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 

-0.01142 


, TOTALS 


0.01334 

0.05747 

0.06912 

0.07362 

0.06500 

0.05727 

0.05145 

0.04452 

0.03510 

0.02440 

0.01281 

0.00056 

-0.01219 

-0.01242 

-0.01106 

-0.00991 

-0.00892 

-0.00807 

-0.00734 

-0.00669 

-0.00613 

-0.00563 

-0.00519 

-0.00479 

-0.00443 


V014. 


-0.05691 
-0.02746 
-0.01828 
-0.01372 
-0.01097 
-0.0091 1 
-0.00776 
-0.00675 
-0.00596 
-0.00532 
-0.00480 
-0.00436 
-0.00399 
-0.00367 
-0.00340 
-0.00316 
-0.00295 
-0.00276 
-0.00260 
-0.00244 
-0.00231 
-0.00219 
-0.00208 
-0.00197 
-0.00189 


DFL81 . 


0.00360 

0.00016 

-0.00050 

-0.00075 

-0.00087 

-0.00095 

-0.00099 

- 0.00102 

-0.00104 

-0.00106 

-0.00106 

-0.00108 

-0.00108 

-0.00109 

-0.00109 

- 0.00110 

-0.00111 

-0.00111 

-0-00111 

-o.oom 

-o.oom 

-o.oom 

-o.oom 

-o.oom 

-0.00111 


AO A 6. 


0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 


-0.05139 
0.01875 
0.03892 
0.04773 
0.04174 
0.03579 
0.03128 
0.02533 
0.01668 
0.00660 
-0.00447 
-0.01630 
-0.02868 
-0.02860 
-0.02697 
-0.02559 
-0.02440 
-0.02336 
-0.02247 
-0.02166 
-0.02097 
-0.02035 
-0.01980 
-0.01929 
-0.01 885 


EM iSS“ r contains the 

- - — 
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a height and the total Htt in h ^ angle is" changed and a new 

heights have been used then t nnzzle deflection angles have been 

Ifsed ‘'A portion SS presented due to the length of the whole table.) 


Table 6. Actual Output from PIE for Total Lift Increments 
for ACSYNT 


25 

81.000 


1.0000 
2.0000 
3.0000 

4.0000 

5.0000 

6.0000 

7.0000 

8.0000 

9.0000 

10.000 
11.000 
12.000 

13.000 

14.000 

15.000 

16.000 

17.000 

18.000 
19.000 


10 

3.0000 
20.500 
-.14986E-01 
-.69276E-01 
0.3781 4E-01 
0.80638E-02 
0.52194E-01 
0.30984E-01 
0.58044E-01 
0.41 284E-01 
0.50254E-01 
0.36244E-01 
0.43074E-01 
0.30954E-01 
0.37664E-01 
0.26904E-01 
0.31024E-01 
0.21 334E-01 
0.21 834E-01 
0.12964E-01 
0.1 1 324E-01 
0.31 238E-02 
-.10625E-03 
-.77662E-02 
-.12226E-01 
-.19426E-01 
-.24866E-01 
-.31 686E-01 
-.24996E-01 
-.31 476E-01 
-.23556E-01 
-.29756E-01 
-.22336E-01 
-.28286E-01 
-.21 286E-01 
-.26996E-01 
-.20376E-01 
-.25896E-01 
-.19596E-01 


7 

6.5000 
24.000 
-.28966E-01 
-.76886E-01 
0.30784E-01 
0.30438E-02 
0.47404E-01 
0.271 34E-01 
0.54384E-01 
0.38064E-01 
0.47264E-01 
0.33434E-01 
0.40564E-01 
0.28424E-01 
0.35474E-01 
0.2461 4E-01 
0.291 04E-01 
0.191 84E-01 
0.201 24E-01 
0.10944E-01 
0.97638E-02 
0.121 38E-02 
-.1 5262E-02 
-.95862E-02 
-.13536E-01 
-.21 1 66E-01 
-.26086E-01 
-.33356E-01 
-.26126E-01 
-.331 16E-01 
-.24626E-01 
-.31 31 6E-01 
-.23346E-01 
-.2981 6E-01 
-.22236E-01 
-.2841 6E-01 
-.21 276E-01 
-.27076E-01 
-.20456E-01 


10.000 
27.500 
-.40856E-01 
-.72290E-01 
0.24534E-01 
0.96000E-02 
0.43044E-01 
0.3471 0E-01 
0.51 004E-01 
0.46230E-01 
0.44474E-01 
0.41 990E-01 
0.381 74E-01 
0.37250E-01 
0.33384E-01 
0.33620E-01 
0.27234E-01 
0.28370E-01 
0.1 8424E-01 
0.20270E-01 
0.82238E-02 
0.1 0620E-01 
-.29562E-02 
-.1 0000E-03 
-.1 4876E-01 
-.1 1610E-01 
-.27346E-01 
-.23740E-01 
-.27326E-01 
-.23450E-01 
-.25746E-01 
-.21 560E-01 
-.2441 6E-01 
-.1 9700E-01 
-.23256E-01 
-.181 30E-01 
-.22266E-01 
-.1 6790E-01 
-.21 406E-01 


13.500 
31.000 
-.51 386E-01 
-.78350E-01 
0.1 8754E-01 
0.491 00E-02 
0.38924E-01 
0.30890E-01 
0.47734E-01 
0.42940E-01 
0.41744E-01 
0.39070E-01 
0.35794E-01 
0.34570E-01 
0.31 284E-01 
0.31 1 30E-01 
0.25334E-01 
0.26020E-01 
0.1 6684E-01 
0.18030E-01 
0.66038E-02 
0.84800E-02 
-.44663E-02 
-.21 500E-02 
-.16296E-01 
-.13600E-01 
-.28676E-01 
-.25670E-01 
-.28596E-01 
-.25030E-01 
-.26966E-01 
-.22820E-01 
-.25586E-01 
-.20970E-01 
-.24396E-01 
-.19410E-01 
-.23356E-01 
-.17990E-01 
-.22466E-01 


17.000 

34.500 

-.60806E-01 

-.81 280E-01 

0.1 3274E-01 

0.96300E-02 

0.3491 4E-01 

0.36540E-01 

0.44494E-01 

0.48370E-01 

0.39004E-01 

0.44000E-01 

0.3341 4E-01 

0.39020E-01 

0.29124E-01 

0.35120E-01 

0.23374E-01 

0.29580E-01 

0.1 4874E-01 

0.21 240E-01 

0.49138E-02 

0.1 1370E-01 

-.60662E-02 

0.47000E-03 

-.17806E-01 

-.1 1310E-01 

-.301 26E-01 

-.23040E-01 

-.29986E-01 

-.22490E-01 

-.28306E-01 

-.20510E-01 

-.26866E-01 

-.18880E-01 

-.25626E-01 

-.17310E-01 

-.24556E-01 

-.1 5940E-01 

-.23636E-01 
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Table 6. (Continued) 


20.000 
21.000 
22.000 

23.000 

24.000 

25.000 

83.000 

1.0000 
2.0000 

3.0000 

4.0000 

5.0000 
6.0000 

7.0000 

8.0000 

9.0000 

10.000 
1 1 .000 
12.000 

13.000 

14.000 

15.000 

16.000 
17.000 


-.24956E-01 
-.18896E-01 
-.23936E-01 
-.18296E-01 
-.23056E-01 
-.17766E-01 
-.22296E-01 
-.17286E-01 
-.21616E-01 
-.16856E-01 
-.20966E-01 
-.16476E-01 
-.20356E-01 
3.0000 
20.500 
-.1 5476E-01 
-.71 486E-01 
0.38094E-01 
0.73437E-02 
0.52674E-01 
0.30744E-01 
0.58624E-01 
0.41 304E-01 
0.50774E-01 
0.3631 4E-01 
0.43534E-01 
0.31 004E-01 
0.38074E-01 
0.26954E-01 
0.31 394E-01 
0.21364E-01 
0.22104E-01 
0.1 2944E-01 
0.1 1 51 4E-01 
0.30238E-02 
-.26248E-04 
-.79462E-02 
-.1 2266E-01 
-.19716E-01 
-.25026E-01 
-.32066E-01 
-.25166E-01 
-.31866E-01 
-.23706E-01 
-.30086E-01 
-.22466E-01 
-.28586E-01 
.21 406E-01 
.27306E-01 


-.2591 6E-01 
-.1 9726E-01 
-.2491 6E-01 
-.1 9096E-01 
-.24036E-01 
-.1 8526E-01 
-.23156E-01 
-.1 8026E-01 
-.2241 6E-01 
-.17566E-01 
-.21756E-01 
-.1 71 56E-01 
-.21 176E-01 
6.5000 
24.000 
-.29926E-01 
-.79286E-01 
0.3081 4E-01 
0.21737E-02 
0.47704E-01 
0.26774E-01 
0.54824E-01 
0.37984E-01 
0.47694E-01 
0.33404E-01 
0.40934E-01 
0.28404E-01 
0.3581 4E-01 
0.24594E-01 
0.29404E-01 
0.191 64E-01 
0.20344E-01 
0.1 0874E-01 
0.99038E-02 
0.1 0638E-02 
-.1 5062E-02 
-.98062E-02 
-.1 3626E-01 
-.21 506E-01 
-.26286E-01 
-.33796E-01 
-.26356E-01 
-.3351 6E-01 
-.24806E-01 
-.31 706E-01 
-.23506E-01 
-.30166E-01 
-.22386E-01 
-.28876E-01 


-. 1 5660E-01 
-.20636E-01 
-.1 4500E-01 
-.1 9976E-01 
-.1 3520E-01 
-.1 9376E-01 
-.1 2690E-01 
-.1 8846E-01 
-.1 1 950E-01 
-.1 8376E-01 
-.1 1 31 0E-01 
-.17936E-01 
-.1 0730E-01 
10.000 
27.500 
-.42256E-01 
-.7481 0E-01 
0.24344E-01 
0.86000E-02 
0.431 94E-01 
0.34230E-01 
0.51 334E-01 
0.46050E-01 
0.4481 4E-01 
0.41 870E-01 
0.38454E-01 
0.371 50E-01 
0.33654E-01 
0.33540E-01 
0.27464E-01 
0.28270E-01 
0.1 8574E-01 
0.201 10E-01 
0.82937E-02 
0.1 041 0E-01 
-.29862E-02 
-.38000E-03 
-.1 501 6E-01 
-.1 1990E-01 
-.27596E-01 
-.24230E-01 
-.27576E-01 
-.2391 0E-01 
-.25976E-01 
-.22060E-01 
-.24606E-01 
-.2021 0E-01 
-.23456E-01 
-.1 8600E-01 


-.16680E-01 
-.21656E-01 
-.15560E-01 
-.20966E-01 
-.14610E-01 
-.20346E-01 
-.13790E-01 
-.19796E-01 
-.13070E-01 
-.19286E-01 
-.12460E-01 
-.1 8846E-01 
-.11 900E-01 
13.500 
31.000 
-.53096E-01 
-.80980E-01 
0.1 8364E-01 
0.37800E-02 
0.38924E-01 
0.30300E-01 
0.47944E-01 
0.42670E-01 
0.41974E-01 
0.38850E-01 
0.36004E-01 
0.34390E-01 
0.31 464E-01 
0.30980E-01 
0.25494E-01 
0.25860E-01 
0.1 6774E-01 
0.17830E-01 
0.66238E-02 
0.82200E-02 
-.45462E-02 
-.24900E-02 
-.16486E-01 
-.14050E-01 
-.28976E-01 
-.26210E-01 
-.28876E-01 
-.25700E-01 
-.27226E-01 
-.23420E-01 
-.25826E-01 
-.21 520E-01 
-.2461 6E-01 
-.19920E-01 


-.14810E-01 
-.22806E-01 
-.13840E-01 
-.22096E-01 
-.1 3040E-01 
-.21 486E-01 
-.12340E-01 
-.20796E-01 
-.1 1740E-01 
-.20176E-01 
-.1 1220E-01 
-.19646E-01 
-.1 0760E-01 
17.000 
34.500 
-.62806E-01 
-.84900E-01 
0.1 271 4E-01 
0.47400E-02 
0.34794E-01 
0.32140E-01 
0.44624E-01 
0.44560E-01 
0.391 44E-01 
0.40580E-01 
0.33534E-01 
0.35920E-01 
0.29254E-01 
0.32290E-01 
0.23474E-01 
0.26990E-01 
0.1 4904E-01 
0.1 8790E-01 
0.48638E-02 
0.90300E-02 
-.61 862E-02 
-.1 8300E-02 
-.1 8036E-01 
-.13500E-01 
-.30456E-01 
-.25450E-01 
-.30316E-01 
-.24740E-01 
-.28606E-01 
-.2261 0E-01 
-.271 36E-01 
-.20840E-01 
-.25886E-01 
-.1 9250E-01 
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Table 6. 

18.000 -.20486E-01 
-.26176E-01 

19.000 -.19696E-01 
-.25206E-01 

20.000 -.18986E-01 
-.24266E-01 

21.000 -.18386E-01 
-.23366E-01 

22.000 -.17856E-01 
-.22566E-01 

23.000 -.17356E-01 
-.21 866E-01 

24 000 -.16936E-01 
-.21 236E-01 

25.000 -.16546E-01 
-.2061 6E-01 


(Continued) 


-.21 426E-01 
-.27476E-01 
-.20576E-01 
-.26286E-01 
-.1 9846E-01 
-.25246E-01 
-.19196E-01 
-.24376E-01 
-.18636E-01 
-.23506E-01 
-.1811 6E-01 
-.2271 6E-01 
-.1 7656E-01 
-.22026E-01 
-.1 7246E-01 
-.21 436E-01 


-.22436E-01 
-.1 7220E-01 
-.21 556E-01 
-.1 6030E-01 
-.20786E-01 
-.1 4920E-01 
-.201 06E-01 
-.1 3900E-01 
-.1 9506E-01 
-.1 3030E-01 
-.1 8966E-01 
-.1 2280E-01 
-.1 8496E-01 
-.1 1610E-01 
-.1 8066E-01 
-.1 1020E-01 


-.23566E-01 
-.1 8520E-01 
-.22646E-01 
-.1 71 60E-01 
-.21 836E-01 
-.1 5990E-01 
-.21 146E-01 
-.15010E-01 
-.20526E-01 
-.1 41 50E-01 
-.19956E-01 
-.1 3420E-01 
-.19456E-01 
-.1 2770E-01 
1 8996E-01 
-.1 2200E-01 


-.24806E-01 
-.17760E-01 
-.23856E-01 
-.16530E-01 
-.23016E-01 
-.1 5460E-01 
-.22286E-01 
-.14570E-01 
-.21 656E-01 
-.13820E-01 
-.21 046E-01 
-.131 50E-01 
-.2041 6E-01 
-.1 2580E-01 
-.19856E-01 
-.1 2070E-01 
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iProarammer's Guide 


Overall Scheme & Assumptions 



The scheme for the Power Induced Effects module is as follows; 1) Obtain a 
complete set of variables for the configuration. 2) Isolate variables to send to lift 
increment routines based on configuration and planform. 3) Calculate lift 
increments. 4) Store results in indexed arrays and files. 5) Output configuration 
variables for the user. 6) Output tables for graphing purposes. Most of the 
empirical equations have been developed for aircraft with high disk loading jets 

or fans. 

Equations for Subroutines 
Hover 

The only independent variable used in the hover calculations is height. The 
other independent variables are set to zero velocity. 90° nozzle deflection 
angle, and 0° angle of attack. 

The method used in this study was developed by Kuhn (reference 3) and 
assumes the total induced lift increment developed on a V/STOL aircraft can be 
expressed as: 


AL _ ] ALs | ALp + AL l 

T T T T T (1) 


Suckdown 


AL 

-^is the out-of-ground effect (OGE) suckdown lift increment, 
for the OGE suckdown is: 


The equation 


AU 


-. 00022 «[& 
V A 


/PnV'^ End 

\pj d c 


( 2 ) 


where S is the total planform area, A is the total jet exit area, P n /P~ is the nozzle 
pressure ratio, Ijcd is the total jet perimeter, and d e is the diameter of an 
equivalent single jet having area A. Experiments have shown that the OGE lift 
increment is reduced if the nozzles are extended below the surface of a body. 
The OGE lift increment for a high wing configuration is lower than the low wing 
configuration and the decrease is related to the square root of the wing height 
over nozzle diameter as shown in equation (3). 
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(3) 

where Ah indicates the wing height above the C Snd 9 wb a ?nd7iies 

the subscripts hw indicates a high wing, b indicates the body, and wb indicates 

the wingbody. 


A L 


is the additional lift increment due to suckdown experienced in-ground 

effect (GE). It was first determined experimentally for single jet configurations 
and then a correction factor was developed for multiple jet configurations. The 
equation for in-ground effect suckdown is: 


^L=K S (-.015) 


Jl 

do 


1.0 

td c 


2.2 - .24 


\P 


(4) 


Where in addition to the variables mentioned above. D is the angular mean 
diameter of the planform, and K s is the multiple jet correction factor which is a 
function of configuration geometry. This GE suckdown also changes with wing 
height similar to the OGE suckdown. This is because the wing does not 
experience the same magnitude of entrainment as the lower surface of the 

body. 


Fountain Lift 

Two methods were developed to calculate the fountain lift, one J, or 
spaced jets, the Basic Method, and one for closely space jets, the h Method. 

Basic Method 

The Basic Method was developed for widely spaced jets with the equal 

thrusts. is the overall fountain lift increment which is a combination of the lift 
increment developed by the fountain arms and core. 


ALf _ ALa , ALc 

T T T (5) 

Equations (6) and (7) are used to calculate the fountain arm contribution. 
Equation (6) is the lift increment for an individual fountain arm ‘x . Equation (/) 
combines the fountain arms in the configuration. 
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(7) 


v is the spanwise extent of the jet on the planform, Y x is the maximum 
SD^nwis/extentof the jet on the planform, e is half the distance between 
adiacent iets h is the height of the lowest surface above the ground, S is the 
actual surface are abetwee n the jets, S" is the potential surface area between 
the jets, and N is the number of fountain arms. These variables can be seen 

Figure #2 



Fiaure #2 Fountain variables from a configuration with three 
jets. 


The calculations for the fountain core are similar to those of the fountain 
arms except the contribution of each fountain arm on the fountain core is, 


ALcx _ Kc ( e x cos 6x 

T le*+hl 

(8) 

ALc.i + ALc ,2 , , ALc.n 

T T T 

(9) 


Where the constant K c and depend on the configuration geometry and 
altitude, e is half the distance between adjacent jets, h is the height of lowest 
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surface above the ground, and 9 is half the angle between adjacent jets and 
the center of the jet pattern. 


h’ Method 

The h’ Method was developed because configurations with closely spaced 
jets exhibit an abrupt increase in fountain lift t at low a«.tudes ic ^ ' pressures 

WSfS contain 

rh^pressuTe ixe^s down as Ihe ’height is "creased because the jets tend to 
merge into a single jet before they reach the ground. 

Two different equations are used for the fountain increment. The decision 
for which equation to use is based on an altitude, h . 


ALf =K' 

T 

= 0.033 

T 


(hi- 



idc i 


(10) 

(Dwl 

(ck) 


1 d c l ) 

’h ' 

(11) 


whprp K’ and X' are parameters calculated based on jet spacing, diameter 

agetesaB sswasa war 

line which is tangent to the curve of equation (10) and is projected to T - 0 a a 
height defined as h\ This is shown in the graph of Figure #3. 
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Lift Improvement Devices 




is the lift improvement devices (LIDs) lift increment. This lift increment is 

an addition to the total fountain by a SriSSte? by ' 

can be determined using the area me ose V area enclosed by jet centers, 
LIDs to the total perimeter area enclose* d by LIDs. area er ^'osea ^ 

length-to-width ratio of jet pattern, and altitude of aircraft, he 
be seen in Figure #4. 
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Figure #4 Lift Improvement Device definitions from a triangular 
configuration with three jets. 


Forward Flight / Jet Deflection Angle / A ngle of Attack 

The calculations based on forward flight, jet deflection angle, and angle of 
attack use hover calculations as a basis for each lift increment calculation. The 
method assumes that the total lift can be expressed as: 

AL _ ALs + ALf + ALjw + ALy 
T T T T T (12) 

where the subscript S refers to the suckdown lift increment (no fountain), F 
refers to the fountain lift increment, JW refers to the jet wake lift increment, and V 
refers to the lift increment due to the ground vortex. 

Suckdown/Fountain 

The suckdown and fountain terms are calculated using a method developed 
in Reference 6. This method calculates a factor based on the forward extent of 
the wall jet and the jet spacing of the front nozzles. This factor, Kh, varies 
between one (the wall jet extending ahead of the configuration) and zero (the 
wall jet swept behind the configuration.) This factor is multiplied by the square 
of the sine of the jet deflection angle (5). (Angle of attack is not used in these 
calculations.) This calculation produces a factor which modifies the suckdown 
and fountain terms for the effects of forward speed and jet deflection angle. The 
suckdown lift increment for forward flight and jet deflection angle is calculated 
as follows: 
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ALs _j ALs.j j^ h s in 2 § 

T l T 


'hover 


(13) 


The fountain lift increment is calculated using the fountain and LID lift 
increments from the hover calculations as shown in equation (14). 


ALf _ 

T 


ALf | ALl 


T T Ji 


hover 


K[, sin 2 5 
h' 


(14) 


This lift increment calculation is very similar to equation (13) except for the 


VF 


v h’ term. This term is included due to the recommendation of Richard Kuhm 
It is ratio of h\ which was described earlier and hf, which is the maximum height 
to which the fountain effects are felt on the airframe. 

Ground Vortex 

The qround vortex term is calculated by assuming the configuration is 
composed of a body and a wing. The lift increment is based on the' 
diameter and area of the front jets. There are two critical heights associated 
with the ground vortex lift increments; hi is the height at which the rate of 
change of lift with height changes and h 2 is the maximum height at which the 
ground vortex effects are felt. The equations are different for the wing 
and each of those are different for heights based on hi and h 2 ^ An example of 
these relations is the equation for a body at a height between hi and h 2 , 
equation (14). 


ALy _ Tf | g[w \-- 2 
T T ' U ) f 



AC P [ 1 + sin(5-90)] 2 |^- 


- 3.2 


(14) 


The other equations are similar to equation (14) in complexity and format 
and they can be found in reference 6. The subscript f refers to the front jets, and 
B refers to the body configuration. T is the thrust, w is the width, I is the length, S 
and A are area, V e is the ratio of the aircraft dynamic pressure to the jet dynamic 
pressure, AC P is a factor based on V e and height, and 6 is the jet deflection 
angle. 

Jet Wake 

The lift increment due to the jet wake is the sum of the increments due to 
each jet on the wing and body. This is shown in equation (15) where B refers to 
the body planform, W refers to the wing planform, f refers to the front jets and r 

refers to the rear jets. 
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ALwake 

T 



+ 





(15) 


The lift increment for the wake is figured by first calculating the lift increment 
out-of-ground effect and then including this term in the overall lift increment in- 
ground effect. The OGE jet wake lift increment is calculated using equation 
(16), which is the equation for the lift increment on a square planform with the jet 
at the center, and multiplying it by adjustment factors for the planform aspect 
ratio, longitudinal, vertical, and lateral position of the jet, distance of the jet 
center from the side of the body, jet deflection angle, non-circular nozzles, jet 
pressure ratio, and jet flap (Reference 2 and 6). 


AL W , 


square _ 


T 



\.67 


1 + 35V, 


5.5 



(16) 


The OGE lift increment is included in equation (17) which is the equation to 
calculate the jet wake lift increment for an individual jet on a body planform. 


AL W ,x _ALyy | QGE 


1 - .7 


V 


s. 

A'b' 


w\ 

Mb 


_5_ 

90 


.34 


w \'- 35 /h V 2 


(17) 


Similar equations are used in calculations for the wing planform (Reference 6). 
The subscript j refers to the jets 

If the jets are placed near the trailing edge of the wing, there is a positive lift 
increment lift increment instead of a negative. This is due to the jet flap effect. 

In this case a positive lift increment is calculated and replaces the OGE term an 
equation similar to equation (17). 

Reaction Control System 

The effectiveness of the roll control jets near the wing tip during transition 
depends on the proximity of the control jets to the wing tip and the wing trailing 
edge, and jet pressure ratio (Pj/Poo). The empirical equations developed for this 
lift increment are based on an integration of the pressure distributions on the 
surface areas around the nozzles. 

The lift increments are assumed to be made up of two terms, one which is 
not affected by pressure ratios (O) and another from the effect of pressure ratios 
above a critical pressure ratio of 1 .893 (P). 


ALrcs . 

Jal) + 

al| 


T 

1 T ) 0 

T Ip 

(18) 


where: 
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AlJ =(3 Vc-2.4Vc), 
T 'o 


_S_ 

A, 


AL) = ..017vJ^' 42 (A -1.893 
T L 'A ' \Poo > 


o o/ c \.688 

,41V 2 ' 2 f- 


IajI 

(19) 

V 75 


-1.893 

(20) 


The variable S is the area of the ^These^quations reproduce 

gS3Ss»a«‘- 

Equaton' and (^stow the jet location adjustment factors and how 
they affect the total RCS lift increment. 


K b = .25 + .2 £ 


.58 


( 21 ) 


K c = .25 + .06 f 
d c 


( 22 ) 


ALrcs J 

T 


t) + 

1 <o 


AL 


T 


pJ 


K b K c 


(23) 


K b is the adjustment factor for the proximriy of the f y 0 ' r S the 6 

prSy'SThe *» ■ Ihe bailing' eige. and x is the distance from the wing 
trailing edge to the jet. 

R outine Descrij 

All of the following routines make up PIE. They , consist t of t nine 9^ e 

==lfi 

Control 

The Power Induced Effects module (PIE) is controlied by tt^ (^nt rol 
program, COPPIE, which coordinates the execution of PIE. COPPIE first cans 
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INPIE to determine all the user defined variables. Output and scratch files ara 
opelfeS ? pi” modifications are made, and final calculations ; for variables 
arp finished Next all lift increments are calculated within a nested do loop 
Nurture Each Cerement routine is positioned inside the dodoops according to 
22 '"dependent variables used tor each increment. After all increments are 
calculated, the output routine is called and then all necessary files are closed. 

COPPIE contains the ACSYNT control variable, ICALC. Currently this 

variable is set to the appropriate value as e , R Y NT^fhe fc A^C de nn?tf^ s 
routine. When PIE is to be incorporated with 'ACSYNT the ICALC definitions 

need to be removed so PIE can be controlled by ACSYNT 


Preliminary Routines 
INPIE 

This routines first defines the namelist, PIENAM, and then sets all the default 
values for each variable. INPIE then reads in the user defined variables from 
unit 9. Next, INPIE opens the file which contains the planform coordinates, 
reads the header and reads the appropriate planform coordinates. !f .2 
repeated until all coordinates from all planforms have been read from the file, 
only a WINGBODY planform is entered then the flag WBFLAG is set to true. 

PLANMO 

PLANMO’s first task is to determine the maximum and minimum po'^ts J of f the 
planform and then determine .1% of the difference between the two to add hat 
to any point which has the same X-coordinate as the previous point. (This is 
done because the slope of a line between two points with the same X- 
coordinated Is Infinity.) At all time PLANMO checks which planform «s being 

used. 

The second task is to combine the individual body and wing planforms into 
one planform, the wingbody. As a by-product of this combination the center 
section planform is determined. Both of these planforms are found by 
determining where the body and wing planforms cross and saving those poi ts 
and combining the appropriate planforms together. 

The last task for PLANMO is to move the most forward part of the planforms 
(generally the aircraft nose) to the origin of the coordinate system. Then move 
all other positioned items the same amount. These items include body 
planform, wing planform, wingbody planform, center section planform, nozzles, 
center of gravity, center of area, trailing edge, RCS nozzles. 

FINVAR 

The purpose of FINVAR is to calculated all variables which have not been 
defined Variables which have not been defined are those variables which 
have been set to the “undefined" flag value of 9999.0. All variables are checked 
with this flag before they are calculated except those calculated from the 
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numerous^or 'compete ^ Ts^cod^foMndividu^* 00 

calculations.) 

SDAREA 

The SDAREA routine was written to determine all variables which are used 
in fountain calculations. These include half the angle between adjacen jets 
. ft, a oontor nf thp iet Dattern (0) half the distance between adjacent jets (e), 

area between the jets (S ). 

The routine first determines angles and defines important lines on the 

This routine was originally written as a stand-alone application. It was 

Pl^by dtfemSring^he^ozzte »nfig^^ 10 

the appropriate variables used in PIE. 

DIABAR 

This routine calculates the angular mean diameter of a planform 
diameter of a circle which has the same circumference as the given planfo • 
The^routine divides the planform into arcs from some point in the inte "° r ° f 
Dlenform (center of the jet pattern.) The lengths of these arcs are summed and 
then the angular mean diameter is determined from the total circumference o 

the planform. 

This routine also has the capability of calculating areas of the planforrrn in 
frnnt and behind the interior point. There is also extensive user prompt , 

output sections which are not used by PIE. These se ^ n ^,^ a B n A b R e V 
recoding PIE so IFLAG is set to one instead of zero when DIABAR is called. 

Hover 

HCALL 

HCALL isolates the local variables within HOV_GE from the global 
configuration variables. The reason for this is HOV_GE modifies some of its 
bca| 9 configuration variables and it is desired to keep the original configuration 

variables from changing. 
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hov_ge 

The HOV GE routine is the lift increment ca|c u( at| on r° u tme for pjE . 
configurations in hover. This routine receives its ; n P^> h ™f c ^ m T^ k and 

in-ground effect suckdown, fountain effect, and LID effect. 

Rnckdo wn/Fountain 

SFCALL 

SFCALL isolates the local variables within STOLSF from the global 
conflgurahon variables. It also chooses particular variables to pass to STOLSF 

based on the configuration. 

STOLSF 

H^ii^o^s ^nd^hen outputs fhe Results hT dUect^^ss scratctffites ^P h Q P re 

numbers are calculated with the same indices used when accessing array . 

Ground Vortex 
GVCALL 

GVCALL isolates the local variables within STOLGV from the global 
confiouration variables. This control routine is more detailed than th ® , , 

previously Mentioned control routines. GVCALL determines which ganfonj(s) 
is being used, assigns variables based on the planform, caHs J 5TOLGV routine, 
and then output the results to similar scratch files mentioned in STOLSF. 

STOLGV 

The STOLGV routine is more simplified than previous increment r °utines 
This routine almost independent of configuration. The routine rece 'ves jnP u 
throuah PIEGV and RESPIE common blocks, uses a lift increment equation 
based on the heights of the configurations and passes the results back to 
GVCALL through the PIEGV common block. 
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■let Wake 
WKCALL 

WKCALL isolates the local 

global configuration variables. This then usj that pianform, 

mentioned in STOLSF . 

JIEPIE 

The DurDOSe ot JIEPIE is to calculate the change in the lift caused b V ,he jet 

^g^na, 0 ve^Sa" Wn^fet 06 °‘ 

SSSsssrss 

block. 

STOLWK 

proximity of the nozzles to the wing trailing edg . rp^uits are 

STOLWK with the PIEWK and RESPIE common blocks and its results are 

returned to WKCALL with the PIEWK common block. 

Reaction Control System 
RCSCAL 

RPSCAL is executed only once for each velocity because the RCS , 
increment does not w with height, nozzle deflect, on a ^ormghc *m ack. 
The routine executes the lift increment routine only when the njser ^has se 
FLGRCS to TRUE, otherwise the routine sets the RCS increment to 

RCSIND 

The purpose of RCSIND is to make all necessary c “"!j9“^ n D ^?he " 
end lift increment calculations. All variables are passed to RCSIND with trie 
PIERCS and RESPIE common blocks and its results are stored in the R 
common block using an array. 
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Output 

PIEP 

PIEP outputs all results either to the screenor tohiesfor |ater use .AH 
variables are passed to this routine using the FIGPIE, PIEFLAG, RESPIE, and 
PERROR common blocks. The first task of PIEP is output to ths i screen o all 
configuration variables in an easy to read format This is immediately fo owed 
bv a menu system from which many different tables can be produced. All 
results which are stored as arrays can be recalled using arrays. The results 
which were stored using scratch files need the record number equations to 
recall the specific results from the scratch files. 

Most results were stored as components of the lift increments. The 
suckdown/fountain lift increments are stored as as suckdown c ° m po nt an 
also as a fountain component. The ground vortex and jet wake increments are 
stored as wing and as body components. These components must be 
combined when any total increments are requested. 


JIETAB 

JIETAB is an example table output routine. This routines outputs a table 
which is compatible with ACSYNT. The only variable passed as a parameter is 
the angle of attack number for which the table is to be produced. All other 
variables are passed to JIETAB using the RESPIE common block. 

Miscellaneous 

CENTAR 

The CENTAR routine calculates the center of area, area, or area in front of a 
point for a give planform depending on the value of the variable MODE. 
Important variables are passed as parameters. 

CROSSIN 

The CROSSIN routine calculates the intersection of two lines, with each line 
defined by two points (X,Y). The end points of each line lie on the same 
X-coordinate. All variables are passed using parameters. 


DIST 

The DIST routine calculates the distance between two points on the 
Cartesian plane using the distance formula. These points are passed as 
parameters to the routine. 

INTEGRA 

The INTEGRA routine calculates the areas of rectangles which are ‘dx’ wide 
and bounded by 1) two values defined by 'a' and ‘b’ and 2) a value defined by 
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‘c’ and zero This routine is used when calculating areas in the SDAREA 
rou^ne AH variables are passed using parameters. 

LINECRO 

Tho i INFCRO routine calculates the intersection of two lines, each defined 
by JstopL an^Y ime^ep. All variables are passed using parameters. 

LINTERP 

The LINTERP routine linear interpolates between two given points using a 
value on the X axis. All variables are passed using parameters. 

PERPDIS 

and^T^^ 

its slope and y-intercept. All variables are passed using parame 

POLYAR 

ThP POLYAR routine calculates the area of any polygon with up to 500 
points thefts are passed to the routine using the MISC common block. 

RTOTAL 

The RTOTAL routine sums the different lift increments to the total lift 
increment This is°done given an indexed notation (similar to array notation). 

SSEN 

th f “art ^ e ^h^^^=wSS the 

undefi^d^iue.^^Hess than ^hree of fhe variables are^given^ttnen^t^r^ routine 

uses default values to calculate any variables not 1 d ? , ' n ) e p„ ™ n »W ariables 
undefined when their values are set to the flag value of 9999. . 

are passed using parameters. 
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Routine Summary 


Routine 


Acronym 


COPPIE 


COntrol Program for the 
Power Induced Effects 


Controls execution 
of Power Induced 


'urpose 



module 

INPIE 

INput for Power Induced 
Effects module 

PLANMO 

PLANform Modifications 

FINVAR 

FINish Variables 

SDAREA 

SuckDown Area 

DIABAR 

DIAmeter BAR (D) - 
compiler would not 
accept DBAR 

HCALL 

Hover CALLing routine 

HOV_GE 

Hover with Ground 


Effects 

SFCALL 

Suckdown/Fountain 
CALLing routine 

STOLSF 

STOL operation - 


estimation of Suckdown 
and Fountain effects 

GVCALL 

Ground Vortex CALLing 
routine 

STOLGV 

STOL operation - 
estimation of Ground 
Vortex effects 

WKCALL 

jet WaKe CALLing 
routine 

JIEPIE 

Jet Induced Effects for 
PIE 

STOLWK 

STOL operation - 
estimation of jet WaKe 
effects 

RCSCAL 

Reaction Control System 
CALIing routine 


and coordination 
Effects Module 

Sets defaults for variables and reads 
user defined input file 
Modifies planforms for consistency 
and integrity 

Calculates all variables which have 
not been defined by the user or set to 
a default value 

Calculates areas necessary to make 
calculations for the fountain effect 
Calculates angular mean diameter of 
a planform 

Isolates and controls execution of 
HOV_GE 

Calculates hover lift increments for 
OGE and GE suckdown, and fountain 
effects 

Isolates and controls execution of 
STOLSF 

Calculates suckdown and fountain lift 
increments while in STOL flight 

Isolates and controls execution of 
STOLGV 

Calculates ground vortex lift 
increments while in STOL flight 

Isolates and controls execution of 
STOLWK 

Calculates change in lift caused by 
the jet induce effects on a flat plate 

Calculates jet wake lift increments 
while in STOL flight 

Isolates and controls execution of 
RCSIND 
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LINECRO 
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Cross Reference - Common Blocks 


Common 

Routine 

conpie 

figpie 

hovpie 

pieflags 

piegv 

piercs 

pierror 

piesf 

piawk 

polygon 

respie 
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Cross Reference - Calls To 


Module 

Makes calls to: 

COPPIE 

INPIE, PLANMO, FINVAR, HCALL, RCSCAL, SFCALL, 
WKCALL, GVCALL, PIEP 

INPIE 

NONE 

PLANMO 

CROSSIN 

FINVAR 

LINTERP, CENTAR, POLYAR, SDAREA, DIABAR, SSEN 

SDAREA 

LINTERP, CROSSIN, LINECRO, INTEGRA, PERPDIS, 
DIST (FUNCTION) 

DIABAR 

NONE 

HCALL 

HOV_GE 

HOVJ3E 

NONE 

SFCALL 

STOLSF 

STOLSF 

NONE 

GVCALL 

STOLGV 

STOLGV 

NONE 

WKCALL 

JIEPIE, STOLWK 

JIEPIE 

NONE 

STOLWK 

NONE 

RCSCAL 

RCSIND 

RCSIND 

NONE 

PIEP 

JIETAB 

JIETAB 

RTOTAL 

CENTAR 

LINTERP, POLYAR 

CROSSIN 

LINECRO 

DIST 

NONE 

INTEGRA 

NONE 

LINECRO 

NONE 

LINTERP 

NONE 

PERPDIS 

NONE 

POLYAR 

NONE 

RTOTAL 

NONE 

SSEN 

NONE 



Cross Reference - Calls By 


Routine 

Called bv: 

COPPIE 

NONE 

INPIE 

COPPIE 

PLANMO 

COPPIE 

FINVAR 

COPPIE 

SDAREA 

FINVAR 

DIABAR 

FINVAR 

HCALL 

COPPIE 

HOV_GE 

HCALL 

SFCALL 

COPPIE 

STOLSF 

SFCALL 

GVCALL 

COPPIE 

STOLGV 

GVCALL 

WKCALL 

COPPIE 

JIEPIE 

WKCALL 

STOLWK 

WKCALL 

RCSCAL 

COPPIE 

RCSIND 

RCSCAL 

PIEP 

COPPIE 

JIETAB 

PIEP 

CENTAR 

FINVAR 

CROSSIN 

PLANMO, SDAREA 

DIST 

SDAREA 

INTEGRA 

SDAREA 

LINECRO 

SDAREA, CROSSIN 

LINTERP 

FINVAR, SDAREA, CENTAR 

PERPDIS 

SDAREA 

POLYAR 

FINVAR, CENTAR 

RTOTAL 

JIETAB 

SSEN 

FINVAR 


